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SECTION  1 
INTRODUCTION 


The  response  of  trucks  and  tracked  vehicles  to  blast  waves  in  a 
tactical  nuclear  warfare  scenario  is  of  considerable  interest  to  military 
planners.  The  present  report  deals  with  the  development  of  a computer 
code,  TRUCK,  for  the  prediction  of  the  response  of  such  vehicles  to 
blast  waves. 

3 

Vehicles  of  particular  Interest  are  those  which  contain  C equip- 
ment and  may  be  necessary  for  the  proper  functioning  of  other  military 
elements.  A communications  shelter  mounted  on  a truck  would  fall  in  that 
category.  Such  a system  may  be  characterized  by  a truck  body  attached  to 
the  axles  through  non-linear  springs  and  dampers,  a shelter  mounted  on 
the  truck  body,  possibly  connected  to  the  truck  body  by  springs,  dampers, 
and  pretensioned  guy  wires , and  equipment  racks  mounted  within  the 
shelter  on  springs  and  dampers.  The  TRUCK  code  is  intended  to  yield  the 
gross  motions  of  the  vehicle  body  and  of  the  several  elements  mentioned 
above  relative  to  the  vehicle  body.  Large  motions  are  permitted,  so 
that  vehicle  overturning  may  be  addressed.  Elasticity  of  the  individual 
elements,  for  example,  the  shelter,  is  not  included  in  the  TRUCK  code. 

Previous  work  in  this  area  is  reported  in  Reference  1,  which  considers 
a single  degree  of  freedom  system  which  rolls  about  an  axis  on  the 
ground  defined  by  the  tire  contact  points  on  the  leeward  side  of  a 
vehicle  exposed  to  a side-on  blast  wave.  The  associated  computer  program 
is  specifically  designed  to  predict  vehicle  overturning. 

The  TRUCK  code  is  obviously  much  more  complex  than  the  code  described 
in  Reference  1.  The  TRUCK  code  includes  a large  number  of  degrees  of 
freedom  rather  than  just  one.  The  fact  that  many  degrees  of  freedom  are 
considered  means  that  associated  elements,  such  as  springs/dampers,  must 
be  characterized  and  included  in  the  equations  of  motion.  Bottoming  and 
rebound  of  the  springs  are  included  in  the  code.  The  tire/ground  inter- 
action forces  have  to  be  formulated.  In  addition,  since  the  TRUCK  code 
will  handle  blast  waves  intercepting  the  vehicle  from  an  arbitrary 
azimuth  ang;le , the  aerodynamic  loading  representation  must  be  much  more 
extensive  than  in  Reference  1. 

Just  as  the  TRUCK  code  is  obviously  more  complex  than  the  Reference 
1 code,  it  is  equally  obviously  much  more  cumbersome  to  use.  Data 
acquisition  and  preparation  are  much  more  difficult,  and  computer  running 
times  are  much  longer.  One  option  within  the  TRUCK  code  permits  solution 
of  a relatively  simple  problem;  namely,  a three  degree  of  freedom  problem 
involving  vehicle  roll,  heave,  and  sideslip  only.  Even  this  simple 
subproblem  still  requires  data  on  the  tires  necessary  to  define  the 
tire/ground  interaction  forces. 


^Ethridge,  Noel  H.,  Blast  Overturning  Model  for  Ground  Targets, 
BRL  Report  No.  1889,  June,  1976.  (AD  #B012102L) 


11 


In  Section  2 of  this  report,  the  vehicle  model  is  described.  This 
description  includes  the  definition  of  the  coordinate  system,  the 
arrangement  of  the  masses  and  the  sprlngs/dampers , and  the  modeling  of 
the  tire/ground  interaction.  The  aerodynamic  loading  formulation  is 
described  in  Section  3,  while  the  equations  of  motion  are  presented  in 
Section  4. 

The  computer  program  based  on  the  foregoing  models  is  described  in 
Section  5.  The  solution  procedure  is  presented,  the  input  and  output 
are  described,  and  an  example  problem  is  presented. 
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SECTION  2 
VEHICLE  mOEL 


2.1  Mass  Model 

The  layout  of  the  mass  model  is  sketched  in  Figure  1.  Symmetry 
about  a lengthwise  vertical  plane  is  assumed.  There  are  four  types  of 
masses  involved  in  the  model.  The  first  is  the  vehicle  body  itself.  It 
is  characterized  by  its  mass,  center  of  gravity  position,  inertia,  and 
products  of  inertia.  Note  that  the  assumption  of  a plane  of  symmetry 
results  in  two  of  the  three  products  of  inertia  being  zero,  so  that  only 
one  product  of  inertia  is  needed.  For  all  other  types  of  masses,  all 
products  of  inertia  are  assumed  to  be  zero. 

The  second  type  of  mass  is  the  axle/wheel  combination,  which  is 
described  by  its  mass,  center  of  gravity  location,  and  its  three  inertias. 
Any  number  of  axles  may  be  present  (currently  restricted  to  six  by 
computer  program  dimensions).  Also,  any  two  consecutive  axles  may  be 
combined  into  a bogie  free  to  rotate  about  an  axis  normal  to  the  plane 
of  symmetry. 

The  shelter  is  the  third  type  of  mass,  and  a rack  is  the  fourth 
type.  Each  is  characterized  by  its  mass  and  inertia  properties.  The 
racks  are  assumed  to  be  symmetrically  located  on  the  left  and  right 
sides  of  the  vehicle.  Any  number  of  racks  may  be  present,  although 
current  computer  program  dimensions  restrict  the  number  to  about  two  or 
three  on  each  side  of  the  vehicle,  the  permissible  number  depending  upon 
the  remainder  of  the  model  configuration. 

The  program  may  be  run  with  the  shelter  mass  combined  with  the 
vehicle  mass , with  the  rack  masses  combined  with  the  shelter  mass , or 
with  the  rack  and  shelter  masses  combined  with  the  vehicle  mass.  Another 
option  provides  for  running  with  only  one  mass  having  only  roll,  heave, 
and  sideslip  degrees  of  freedom. 

2.2  Coordinate  Systems 

The  primary  coordinate  system  is  a body  axis  system  which  is  attached 
to  the  vehicle  body  with  its  origin  at  the  overall  system  center  of 
gravity.  It  is  assumed  that  deformations  of  the  vehicle  system  (e.g., 
rack  motion  relative  to  the  vehicle  body)  are  small  in  comparison  with 
typical  system  dimensions.  Hence,  the  center  of  gravity  remains  located 
at  the  same  point  on  the  vehicle  body  and  the  mass  matrix,  involving 
masses,  static  unbalances,  and  inertias,  remains  constant. 

The  X;,  y,  and  z directions,  shown  in  Figure  1,  form  an  orthogonal 
right  handed  body  axis  system.  The  right  handed  rotations  about  these 
body  axes,  ((>,  6,  and  ijj,  respectively,  will  be  referred  to  as  pitch,  yaw, 
and  roll.  Translational  motions  in  the  x,  y,  and  z directions  will  be 
referred  to  as  sideslip,  heave,  and  fore-and-aft  translation,  respectively. 
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SHELTER 


FIGURE  1.  MASS  MODEL  LAYOUT 


In  addition  to  the  body-axis  system  just  defined,  the  motions  of 
the  axles,  shelter,  and  racks  relative  to  the  truck  body  are  described 
by  the  degi:ees  of  freedom  listed  in  Table  1.  Component  rotations  are 
about  axes  through  the  center  of  gravity  of  the  individual  component. 

In  Table  1,  the  letter  "g"  is  used  to  indicate  a generalized  coordinate, 
the  subscrj.pt  indicates  the  direction  of  the  degree  of  freedom,  and  the 
superscript:  indicates  the  mass  type  involved.  The  order  of  the  degrees 
of  freedom  is  as  indicated  in  Table  1;  that  is,  the  overall  vehicle 
degrees  of  freedom,  the  axle  degrees  of  freedom,  the  shelter  degrees  of 
freedom,  ar.d  the  rack  degrees  of  freedom.  The  axles  are  presumed  to  be 
consecutive;  from  front  to  back.  The  left  side  racks  will  all  precede 
their  right  side  counterparts  in  program  storage  and  output.  For  each 
mass  type,  the  order  of  the  degrees  of  freedom  is  roll,  sideslip,  heave, 
pitch,  yaw,  and  fore-and-aft  translation.  For  the  axles  and  the  shelter, 
not  all  of  these  degrees  of  freedom  are  allowed;  the  order  remains 
Intact,  however.  The  total  number  of  degrees  of  freedom  is  seen  to  be 
10  + 2a  + 12r,  where  "a"  is  the  number  of  axles  and  "r"  is  the  number  of 
left  side  racks.  If  the  shelter  is  taken  as  rigidly  attached  to  the 
vehicle  body,  the  total  number  of  degrees  of  freedom  is  6 + 2a  + 12r. 

The  dimensions  of  the  current  program  restrict  the  number  of  degrees  of 
freedom  to  50  or  less. 

The  first  six  degrees  of  freedom  will  always  be  the  overall  vehicle 
degrees  of  freedom.  It  will  be  convenient  in  some  cases  to  refer  to 
them  as  g^^— ♦^gg,  as  indicated  in  Table  1. 

Two  configurations  of  interest  require  different  interpretations  of 
the  degrees  of  freedom.  The  first  is  a tracked  vehicle.  On  a tracked 
vehicle,  there  is  no  axle  connecting  corresponding  tires  on  either  side 
of  the  vehicle.  Rather,  each  tire  is  independently  suspended,  each  with 
its  own  freedom  in  the  y direction.  If,  however,  two  corresponding 
tires  are  assumed  to  be  connected  by  an  imaginary  axle,  the  roll  and 
heave  of  the  axle  are  sufficient  to  reproduce  the  two  heave  motions  of 
the  individual  tires.  One  way  of  looking  at  it  is  to  view  the  two 
degrees  of  "axle"  freedom  as  actually  being  (1)  the  average  of  the  two 
tire  heave  motions,  and  (2)  proportional  to  the  difference  between  the 
heave  motions.  Viewed  in  this  way,  the  use  of  axle  roll  and  heave  is 
equivalent  to  redefining  the  generalized  coordinates  to  be  used  to 
describe  the  heave  motions  of  the  two  tires. 

The  second  configuration  which  requires  further  discussion  is  the 
pitch  bogie.  Two  consecutive  axles  may  be  combined  into  a bogie  which 
is  free  to  pitch  about  an  axis  midway  between  the  two  axles.  The  available 
degrees  of  freedom,  four  for  the  two  axles,  are  adequate  to  describe  the 
motions.  All  that  is  necessary  is  to  add  the  constraint  that  the  pitching 
moment  about  the  pitch  axis  must  be  zero.  This  results  simply  in  the 
bogie  suspension  spring  forces  being  equally  divided  between  the  two 
axles  involved . « 
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TABLE  1 


VEHICLE  MODEL  DEGREES  OF  FREEDOM 


DEGREE 
OF  FREEDOM 


MASS  TYPE 


DESCRIPTION 


Vehicle 


Vehicle  roll 


Vehicle  sideslip 


Vehicle  heave 


Vehicle  pitch 
Vehicle  yaw 


Vehicle  fore-and-aft  translation 


Axle  n 


Axle  n roll  relative  to  vehicle  body 


Axle  n heave  relative  to  vehicle  body 


Shelter 


Shelter  roll  relative  to  vehicle  body 


Shelter  heave  relative  to  vehicle  body 

Shelter  pitch  relative  to  vehicle  body 

Shelter  fore-and-aft  translation 
relative  to  vehicle  body 


Rack  m 


Rack  m roll  relative  to  vehicle  body 


Rack  m sideslip  relative  to  vehicle  body 


Rack  m heave  relative  to  vehicle  body 


Rack  m pitch  relative  to  vehicle  body 


Rack  m yaw  relative  to  vehicle  body 


Rack  m fore-and-aft  translation 
relative  to  vehicle  body 
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Since  large  motions  of  the  vehicle  are  to  be  considered,  it  is 

clear  that  ►gg  do  not  define  the  location  and  orientation  of  the 

vehicle  body.  This  is  true  because  these  motions  take  place  along  and 
about  constantly  changing  directions.  In  order  to  determine  tire-ground 
interactions  and  in  order  to  calculate  the  blast  loads,  it  is  necessary 
to  know  the  location  and  orientation  of  the  vehicle.  For  this  reason, 
an  earth--fixed_axis  system  and  Euler  angles  are  Introduced. _ These  will 

be  denoted  by  g^^ where  g^  is  the  Euler  roll_angle,  is  the 

motion  of  the  center  ot  gravity  in  the  earth-fixed  x direction,  and  so 
forth.  The  earth-fixed  x and  z axes  are  horizontal  and  the  y axis  is 
vertical.  The  origin  of  the  earth-fixed  axis  system  is  defined  as 
follows.  Consider  the  vehicle  with  the  x-z  body  axes  horizontal.  Place 
the  vehicle  such  that  the  tires  just  contact  the  ground  (assumed  to  be 
horizontal  for  the  moment) . The  origin  of  the  earth-fixed  axis  system 
is  then  £Lt  the  vehicle  center  of  gravity,  and  the  earth-fixed  and  body 
axis  systems  are  coincident  with  the  vehicle  so  placed.  Note  that  the 
X,  y,  z values  at  blast  arrival  will  not  be  zero,  because  the  vehicle 
must  settle  from  the  specified  position  under  the  action  of  gravity. 

The  present  formulation  permits  the  ground  to  slope  in  the  x 
direction;  that  is,  the  slope  is  restricted  such  that  all  ground  points 
at  the  same  value  of  x will  have  the  same  value  of  y.  The  origin  of  the 
earth-fixed  axis  system  with  the  vehicle  on  a slope  is  the  center  of 
gravity  of  the  vehicle  with  the  vehicle  placed  such  that  the  tires  just 
contact  an  imaginary  horizontal  ground  plane  at  the  same  height  as  the 
actual  ground  directly  below  the  center  of  gravity. 

The  Euler  angular  rotations  are  taken  in  the  conventional  order 
iji,  0,  ^ (which  are  the  same  as  g^,  g^,  g^)  • The  Euler  angular  velocities 
are  found  from  the  body-axis  angular  velocities  from  the  relations 
(see,  for  example.  Reference  2) 


• 

(g  cost))  + gc 

cos0 

sinij)) 

(la) 

e 

®5 

cost))  - sin()> 

(lb) 

-s-l* 

II 

^4 

+ i))  sln6 

(Ic) 

Here  a dot  indicates 

differentiation  with 

respect  to  time. 

The  Euler 

angles  are  then  found  by  integrating  the  angular  velocities . 

Translational  velocities  in  the  earth-fixed  and  body  axis  systems 
may  be  related  through  a transformation  matrix,  g. 


2 

Etkin,  Bernard,  "Dynamics  of  Flight",  John  Wiley  and  Sons,  Inc., 
New  York,  1959. 
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(2) 


where 


3 = 


(cos6  cosijj) 


(cos  9 siTin|>) 


(-sin0) 


-cos^  sinijj 
^+sin^  sinO  cosili 
cosip  cosijj 
^+sin4;  sln0  siniji 
(sin^  COS0) 


,) 


sinip  siniji 
^+cos$  sin0  cost|)j 
^-sln^  cosi|; 
^+cos<j)  sln6  sinijjj 
(cOS4>  COS0) 


J 

inij 


(3) 


The  location  of  the  vehicle  center  of  gravity  is  found  by  integrating 
the  earth-fixed  axis  system  velocities. 

2 . 3 Representation  of  Springs  and  Dampers 

The  various  masses  described  previously  are  connected  by  springs 
and  dampers . The  springs  and  dampers  are  characterized  by  their  mechanical 
properties  and  by  their  attachment  points  to  the  masses  they  interconnect. 

The  mechanical  properties  required  are  simply  the  curves  of  force 
vs  displacement  for  springs  and  force  vs  velocity  for  dampers.  The 
conventions  used  herein  are  as  follows: 

Springs : 

Shortening  is  a negative  displacement  and  gives  a positive  force. 
Elongation  is  a positive  displacement  and  gives  a negative  force. 
Dampers : 

The  compression  stroke  corresponds  to  a negative  velocity  and  a 
positive  force. 

The  rebound  stroke  corresponds  to  a positive  velocity  and  a 
negative  force. 
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Each  spring  or  damper  curve  is  approximated  by  a series  of  straight 
lines,  so  that  non-linear  behavior  is  accounted  for.  No  hysteresis 
effects  are  included,  however;  thus,  loading  and  unloading  take  place 
along  the  same  curve. 

Consider  a spring  connecting  mass  "r"  to  mass  "s".  The  coordinates 

at  which  the  spring  attaches  to  mass  r will  be  designated  by  il  , il  , 

y 

r 

and  Z , where  the  lengths,  i,  are  measured  from  the  center  of  gravity 
z 

r 

of  mass  r,  and  similarly  for  mass  s.  The  elongation  of  spring  "i",  6 , 
may  be  found  from  the  generalized  displacements,  g,. 

<Si=L^ijJ  {gj}  (4) 


where  A , will  be  zero  except  for  j corresponding  to  degrees  of  freedom 


ij 

of  mass  r 
in  spring 
vehicle . 


or  mass  s.  It  should  be  noted  that  g^ 


g,  are  never  involved 


elongations,  since  they  refer  to  overall  motions  of  the  entire 

Hence,  the  j dimension  of  the  matrix  A . can  be  6 smaller  than 

•J 

the  total  number  of  degrees  of  freedom.  Note  also  that  the  same  A matrix 


transforms  generalized  velocities,  g^ , 


info  elongational  velocities,  S 


i' 


The  spring  direction  cosines  are 


a = 

(L  - 

X 

'■x 

(5a) 

s 

r 

b = 

- 

L )/L 

(5b) 

^r 

c = 

- 

(5c) 

s 

r 

where  the  subscripted  L*s  are  measured  from  any  common  reference,  and 


L E 


(L  -L 

X X 

s r 


) +(L  -L 
•^S 


2 2 
)^+(L  -L 
y z z 

^r  s r 
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The  spring  elongation  is  then  given  hy 


*5  = [g  ~g  + £ 9,^  - ^ gn  “ g,  + ^ g , 

z ®6  z y y °ili  ^ 

ST  s s r r s s r r 


+ [g  “ g ~ g + ^ ga  + ^ g I “ g I ]t)  (7) 

®y  z ° 6 z ^4>  x x ^ ^ ' 

S T s r r s s r r 


+ »y  8^  - *-y  8^  - 8e  + 8e  18 

s r s s r r s s r r 


The  elements  of  the  X matrix  may  be  easily  deduced  by  comparing  Eqs. 
4 and  7 . 


The  present  formulation  permits  guy  wires  to  attach  the  shelter  to 
the  vehicle  body.  These  are  handled  exactly  as  ordinary  springs  except 
that  a guy  wire  preload  may  be  specified.  That  is,  the  value  of  the 
tensile  load  in  a guy  wire  with  the  truck  in  a trimmed  condition  under 
the  action  of  gravity  may  be  specified  by  the  analyst.  All  other  springs 
will  end  up  with  whatever  load  is  consistent  with  a trimmed  condition. 

Spring  bottoming  is  allowed.  When  a spring  bottoms  out,  an  elastic 
collision  conserving  kinetic  energy  is  assumed.  The  collision  process 
involves  an  instantaneous  change  in  velocities,  effectively  due  to  the 
application  of  an  impulse  at  the  collision  point.  If  the  velocity  of  a 
point  is  denoted  by  v , v , and  v and  the  change  in  velocity  due  to  the 
collision  by  Av  ^ an?  conservation  of  kinetic  energy  means  that 


(8) 


where  dm  is  an  elemental  mass  and  the  integral  extends  over  all  masses. 
Equation  8 may  be  rewritten 


V Av  +v  Av  +v  Av 
X X y y z z 


} 


dm  + 


/ 


I Av  ^+Av 
I X y 


+Av 


dm 


0 


(9) 
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If  a unit  impulse  applied  at  the  collision  point  produces  velocity 

changes  6v  , 6v  , and  6v  , then 
X y z 

Av^  = I6v^  (10) 

and  so  forth,  where  I is  the  value  of  the  applied  impulse.  Substituting 
Eq.  10  into  Eq,  9 and  rearranging, 


I = 


/<  V 6v  +v  6v  +v  6v  > dm 


(11) 


The  integirals  in  the  above  equation  may  be  expressed  in  terms  of  the 
present  mass  model  as 


V 6v  -hv  6v  +v  6v 
X X y y z z 


} 


dm 


[gi] 


(12) 


2 2 2! 
6v  +<5v  +6v  i 

X y z J 


dm  = 


[6ii] 


(13) 


where  6g  Is  the  generalized  velocity  change  due  to  the  application  of  a 
unit  impulse  at  the  collision  point  and  . is  the  generalized  mass 
matrix,  defined  in  Division  4.2,  Table  3. 


The  velocities,  g,  are  known  at  the  time  of  collision.  The  velocity 
changes  due  to  a unit  impulse,  6g,  can  easily  be  found  by  applying  the 
equations  of  motion  developed  in  Section  4.  Equations  12  and  13  then 
allow  the  Integrals  to  be  evaluated,  and  Eq.  11  may  then  be  used  to 
determine  the  value  of  the  required  impulse.  The  velocity  changes  may 
then  be  found  from  Eq.  10.  Finally,  the  new  velocities  are  found  by 
adding  the  velocity  changes  to  the  velocities  which  existed  just  prior 
to  the  collision. 


2 . 4 Tire-Ground  Interaction  Forces 


The  tire-ground  interaction  is  based  upon  a Coulomb  friction 
representation.  The  force  on  the  tire  consists  of  a component  normal 
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to  the  ground  surface  and  a component  tangential  to  the  ground  surface. 
These  will  be  referred  to  simply  as  the  normal  and  tangential  forces. 

The  normal  force  will  depend  upon  the  normal  deflection  and  normal 
velocity  of  the  tire  and  the  tire  spring  and  damping  characteristics. 

The  tangential  force  representation  separates  into  two  regimes,  non-sliding 
and  sliding.  While  the  tire  is  not  sliding,  the  tangential  force  depends 
upon  the  tire  tangential  deflection  and  velocity  and  the  spring  and  damping 
characteristics  of  the  tire.  When  the  tangential  spring  force  reaches  a 
limit  value,  equal  to  the  tire  normal  force  times  the  coefficient  of 
friction,  the  tire  starts  to  slide.  The  tangential  tire  force  during 
sliding  is  taken  as  equal  to  the  normal  force  times  the  coefficient  of 
friction  and  is  in  a direction  opposite  to  the  tangential  deflection. 

A tire  is  also  allowed  to  leave  the  ground,  at  which  time  the 
ground-interaction  forces  become  zero,  of  course.  When  the  tire  contacts 
the  ground  again,  the  tangential  tire  deflection  is  set  equal  to  zero. 

The  mathematical  implementation  of  the  above  concepts  turns  out  to 
be  rather  complex.  A brief  description  of  the  development  is  given  below. 

The  ground  geometry  is  shown  in  Figure  2.  The  ground  surface  is 
assumed  to  consist  of  two  intersecting  planes,  with  the  intersection  line 
parallel  to  the  earth-fixed  z axis.  The  ground  slopes  in  the  two  regions 

are  y,  and  and  the  slope  change  occurs  at  x = x 

12  sc 

The  position  of  the  center  of  the  tire  in  the  earth-fixed  axis 
system  is  given  by 


In  Eq.  14,  the  £'s  are  measured  from  the  axle  center  of  gravity  to  the 
center  of  the  tire  and  the  L's  are  measured  from  the  vehicle  center  of 
gravity  to  the  center  of  the  tire.  The  generalized  displacements  g and 
g are  for  the  axle  associated  with  the  tire  being  considered.  The^y 
distance  is  biased  such  that,  with  the  vehicle  wheels  just  touching  the 
ground,  y will_be  equal  to  R,  the  tire  radius.  This  may  be  verified  by 
observing^ that  i^,  g , and  g are  all  zero  for  the  pre-blast  condition 
which  establishes  th?  origin’^for  the  earth-fixed  axis  system. 
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FIGURE  2.  GROUND  GEOMETRY 
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Knowing  the  position  of  the  center  of  the  tire  and  knowing  the 
ground  surface  configuration,  the  height  of  the  center  of  the  tire  above 
the  ground,  measured  in  the  plane  of  the  tire,  may  be  determined.  The 
expression  for  the  tire  height,  which  is  the  result  of  a moderately 
lengthy  development,  is 


[y  - X tany  - A]  I 

H = (15) 

(l+tan^Y)“(n-5tanY)^ 

where 

n = y^.  (left  tire) -y^  (right  tire)  (16) 

5 = x^  (left  tire) -x^ (right  tire)  (17) 


and  Si  is  the  axle  length.  The  parameter  A characterizes  the  ground 
configuration,  and  is  defined  in  region  1 by 


A = 0 if  X >0 
sc  — 

A = X (tanY~-tanY. ) if  x <0  (18a) 

SC  ^ sc 

and  in  region  2 by 

A = - X (tanYo-tany, ) if  x >0 
sc  2 i sc— 

A = 0 if  X <0  (18b) 

sc 

Equation  15  is  used  for  each  of  the  two  regions,  and  the  smaller  value 
of  H is  used  if  the  ground  contour  is  concave,  and  the  larger  is  used 
if  the  ground  contour  is  convex.  The  corresponding  region  is  noted, 
and  the  slope  of  that  region  is  used  in  ensuing  calculations . It  may 
easily  be  verified  that  in  the  case  of  zero  ground  slope  with  the  axle 
horizontal  (ri=0)  , Equation  15  gives  H = y^,  as  it  should. 


The  tire  in-plane  deflection  is 


6 = H - R 


(19) 
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If  the  deflection  is  negative,  the  force  is  found  from  the  tire  char- 
acteristics. The  component  of  this  force  normal  to  the  ground  is  then 
used.  If  the  deflection  is  positive,  the  tire  is  off  the  ground  and  all 
tire  forces  are  zero. 

Assuming  the  tire  to  be  rigid,  the  body-axis  components  of  the 
velocity  of  the  tire  contact  point  are  given  by 

!-(yR)gj  + 62  + I-J,  - 

+ S3  - + 8y 

H 

This  velocity  must  be  broken  down  Intq  components  normal  to  and  tangential 
to  the  ground.  This  is  done  by  using  a unit  vector  normal  to  the  ground, 
N,  the  body  axis  components  of  which  are  given  by 

{"}  ■ K I 

where  it  should  be  noted  that  the  transpose  of  3 is  equal  to  the  inverse 
of  B. 

The  velocity  normal  to  the  ground  is  simply  the  dot  product  of  the 
and  the  N vectors,  and  the  associated  components  are 

W ■ (w'  K})  1“} 


The  term  in  parentheses  is  a scalar  and  is  simply  the  magnitude  of  the 
normal  velocity,  except  that  it  may  be  either  positive  or  negative. 

Knowing  the  total  velocity  and  the  velocity  normal  to  the  ground, 
the  tangential  velocity,  V^,  is  simply  the  difference. 


{Vy|  . {vj,  - (23) 

The  normal  and  tangential  velocities  are  used  to  calculate  tire  damping 
forces , and  the  tangential  velocity  is  integrated  to  determine  the 
tangential  displacement,  6 , which  is  in  turn  used  to  find  the  tire 
tangential  spring  force.  The  tangential  velocities  of  the  front  tires 
(axle  1)  are  given  special  treatment,  however,  on  the  assumption  that 
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the  front  tires  are  free  to  roll  in  their  planes.  Therefore,  for  a 
front  tire,  the  component  of  the  tangential  velocity  which  is  normal  to 
the  intersection  of  the  wheel  plane  and  the  ground  plane  is  used  rather 
than  the  total  tangential  velocity. 


If  the  tire  is  in  contact  with  the  ground  and  is  not  sliding,  the 
normal  and  tangential  spring  and  damping  forces  are  found  as  indicated 
above.  The  spring  forces  are  applied  in  directions  opposite  to  the 
displacements,  and  the  damping  forces  are  applied  in  directions  opposite 


f - - v.  ' ' ■ ^ N ’ 

y is  the  coefficient  of  friction  and  F°  is  the  normal  spring  force,  is 


to  the  velocities.  The  maximum  allowable  tangential  force,  yF°,  where 


continuousiy  monmorea.  wnen  cne  cangenriax  aerreccion  oecomes  sucn 
that  the  corresponding  spring  force,  F^,  is  greater  than  hF^,  the  tire 
is  allowed  to  slide.  The  tangential  damping  force,  F^,  is  set  equal  to 
zero  and  F^  is  set  equal  to  yF^  and  is  taken  to  act  in  opposition  to 
the  tangential  displacement. 


During  sliding,  the  magnitude  of  the  tangential  deflection  is 
always  equal  to  the  value  corresponding  to  the  force  yF^.  The  direction 
of  the  tangential  deflection  is  found  as  follows.  First  of  all,  a more 
specific  definition  of  "tangential  deflection"  is  required.  To  do  so, 
two  tire-ground  contact  points  are  defined.  The  first  is  the  contact 
point  which  would  exist  if  the  tire  were  rigid,  which  will  be  referred 
to  as  the  rigid-tire  contact  point.  The  velocities  given  by  Eq.  20  are 
the  velocities  of  this  point.  The  second  contact  point  is  the  actual 
contact  point  between  the  tire  and  the  ground.  The  tangential  deflection 
is  the  vector  from  the  actual  contact  point  to  the  rigid-tire  contact 
point. 

During  each  time  step,  the  motion  of  the  actual  contact  point  is 
assumed  to  be  in  the  direction  of  the  previous  tangential  deflection. 

The  rigid-tire  contact  point  moves  in  the  direction  of  the  tangential 
velocity  an  amount  equal  to  that  velocity  times  the  integration  time 
step.  The  position  of  the  rigid- tire  contact  point  is  thus  known,  the 
magnitude  of  the  tangential  deflection  is  known,  and  the  line  along 
which  the  actual  contact  point  must  lie  is  known.  These  facts  are 
sufficient  to  permit  definition  of  the  location  of  the  actual  contact 
point . 

When  the  movement  of  the  actual  contact  point  as  determined  by  the 
above  procedure  is  in  opposition  to  the  tangential  deflection,  sliding 
stops.  Since  the  tangential  deflection  has  been  maintained  consistent 
with  the  tangential  force  during  sliding,  a smooth  transition  takes 
place  when  sliding  stops. 

This  completes  the  development  of  the  tire  forces.  The  total  tire 

6 6 6 i 

force,  comprised  of  F°,  F°,  F°,  and  F^,  all  acting  in  their  appropriate 
directions,  will  be  designated  by  F^. 
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SECTION  3 

AERODYNAMIC  LOADING 


3 . 1 Intro due t ion 


The  loading  on  the  vehicle  results  from  the  blast  wave  from  a 
nuclear  explosion.  Associated  with  the  blast  wave  are  increased  pressure 
and  densit]^  and  material  velocity.  Blast  wave  characteristics  for  two 
heights  of  burst  are  contained  in  the  program.  Those  corresponding  to 
a height  of  burst  of  zero  are  based  upon, curve  fits  in  Reference  1; 
those  for  a scaled  burst  height  of  60  ^ meters  are  based  upon 

Reference  3. 

The  b].ast  wave  front  is  assumed  to  be  normal  to  the  ground  surface, 
and  the  vehicle  is  assumed  initially  to  be  essentially  normal  to  the 
ground.  Asi  the  blast  wave  envelops  the  vehicle,  the  wave  reflects  from 
the  vehicle  surface  and  rarefaction  waves  emanate  from  free  edges  to 
relieve  thes  reflected  pressure.  At  later  times,  the  loading  is  essen- 
tially a drag  type  loading,  resulting  from  the  material  velocity  asso- 
ciated witfi  the  blast  wave.  The  development  of  the  aerodynamic  loading 
is  separated  into  these  two  regimes,  which  will  be  referred  to  as  the 
diffraction  loading  and  the  drag  loading. 

3.2  Diffraction  Loading 

The  diffraction  loading  is  based  upon  shock-tube  experiments  reported 
in  Reference  4.  In  these  experiments,  front  and  back  face  pressures  on 
a rectangular  block  were  measured  with  the  shock  wave  normally  incident 
on  the  front  face  (shock  front  parallel  to  front  face) . For  the  present 
application. j diffraction  loadings  for  arbitrary  intercept  angles  are 
required.  To  permit  extension  of  the  shock  tube  results  to  arbitrary 
intercept  angles,  a crude  model  roughly  reproducing  the  diffraction 
processes  has  been  constructed.  The  model  is  fitted  to  the  experimental 
front  and  back  face  pressures  and,  since  the  physical  processes  are  at 
least  roughly  modeled,  it  is  hoped  that  reasonable  pressures  are  predicted 
for  other  Intercept  angles. 

It  is  assumed  that  the  vehicle  moves  very  little  during  the  diffraction 
period,  so  that  the  shock  wave  and  the  vehicle  may  both  be  taken  as 
normal  to  the  ground.  This  assumption  limits  the  number  of  configurations 
which  must  be  addressed.  The  intercept  geometry  is  shown  in  Figure  3. 

It  may  be  seen  that  0=0  corresponds  to  the  shock- tube  experiment,  0 = 

90  corresponds  to  intercept  of  the  vehicle  from  the  front,  and  0 = -90° 
corresponds  to  intercept  from  the  rear.  Due  to  truck  symmetry,  only  the 
range  -90  £ 0 90  need  be  considered. 


Ethridge,  Noel  H. , private  communication. 

4 

Taylor,  W.  J. , A Method  for  Predicting  Blast  Loads  During  the 
Diffraction  Phase,  Shock  and  Vibration  Bulletin  42,  Part  4, 
pg.  135,  January,  1972. 
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The  basic  model  for  the  diffraction  loading  involves  waves  emanating 
from  free  edges.  For  a point,  p,  on  a rectangular  face,  four  distances 
are  defin€:d,  as  shown  in  Figure  4.  A wave  is  assumed  to  emanate  from 
each  free  edge  at  the  time  when  the  undisturbed  shock  front  reaches  the 
edge  point  defined  by  s..  The  wave  moves  at  a velocity  "a",  which  will  be 
defined  later.  With  the  shock  velocity  designated  as  V , effective  edge 
distances,  s^,  may  be  defined  which  account  for  the  timi  at  which  the 
wave  starts  relative  to  the  time  at  which  the  undisturbed  shock  reaches 
point  p.  For  example,  suppose  that  the  face  shown  in  Fig.  4 is  the  left 
side  of  the  vehicle,  which  is  the  side  first  intercepted  by  the  shock 
wave.  Suppose  that  6 is  positive,  so  that  the  edge  defined  by  s.  is 
intercepted  first,  and  define  zero  time  as  the  time  of  first  intercept. 

s^  sin0 

The  time  at  which  the  undisturbed  shock  reaches  point  p is  . 

s 

At  that  time,  the  rarefaction  wave  from  the  s^^  free  edge  will  have  moved 

a distance  s^^  a_^ir^  toward  point  p.  Hence,  in  effect  the  edge  distance 

is  decreased  by  the  amount  s^  ^ . The  effective  edge  distance 

s 

in  this  case  is  then 

r,  a sin0,  ^ 

Sf  = [1 ] (24a) 

s 

Similarly,  for  the  same  left  side  face. 


[1  + 


a sin6 
V 

s 


■] 


s 


4 


(24b) 

(24c) 

(24d) 


The  other  faces  may  be  dealt  with  similarly.  For  the  front  of  the 
vehicle,  with  Fig.  4 considered  as  a view  from  in  front. 


^2 

"3 

®4 


s^  [1  + 


a cos6 


Sj  [1  - 


a cos6 
V 


(25a) 

(25b) 

(25c) 

(25d) 
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For  the  rear  of  the  vehicle,  with  Fig.  4 considered  as  a view  from  the 
rear, 


“ Ft  acosO"!  / ^ ^ 

[1 ] (26a) 

s 

S2  = (26b) 

®3  ° ^ — V ^ (26c) 

s 

3.  = s.  (26d) 


For  the  right  side  of  the  vehicle,  with  Fig.  4 considered  as  a view  from 
the  left  side,  Eqs.  24  apply.  The  top  and  the  bottom  of  the  vehicle  are 
treated  separately  later. 


The  wave  from  the  free  edge  is  assumed  to  produce  an  exponentially 
varying  pressure  at  point  p with  time.  Hence,  the  fom  of  the  diffraction 
loading  is  taken  as 


-'‘E 

i=l 


Ap(t)  = [Ap  (t=0)-Ap  (t=‘»)  j e 


+ Ap  (t-“>)  (27) 


The  time  zero  reference  is  the  time  at  which  the  undisturbed  shock  reaches 
point  p.  The  quantities  Ap(t=0)  and  Ap(t=”)  are  the  pressures  at  point  p 
at  time  zero  plus  and  time  equal  to  infinity,  respectively.  These  will 
be  defined  later.  The  parameter  E,  is  an  effectiveness  factor,  which 
will  be  defined  later  also.  For  the  moment,  consider  to  be  unity. 

The  dimensionless  time  parameter,  x^.  Is  defined  as 


_ a t 


(28) 


A wave  from  the  edge  is  seen  to  reach  point  p at  = 1.  For  < 1, 

(x^  - 1)  in  Eq.  27  is  taken  as  zero. 

The  constant  k is  seen  to  be  the  only  free  variable  available  to  fit 
the  shock  tube  data.  The  empirical  fit  for  k is  as  follows. 
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Defining  the  shock  strength 


(29) 


where  Ap  is  the  shock  overpressure  and  p is  the  ambient  pressure,  and 
defining® 


k= 


0.1 


+ 0-Q7 


(30) 


the  constant  k is  given  by 


k = k for  0 a £ 90^ 
k = k (1-0.25)  for  a = 180° 


(31) 


The  angle  a is  the  angle  between  the  shock  wave  and  the  vehicle  surface 
being  considered.  For  example,  for  6 = 0°,  a for  the  left  side  is  0 ^ 
for  the  right  side  180°,  and  for  the  front  and  back,  90  . For  9 = 45  , 
a is  45°  for  the  left  side,  135°  for  the  right  side,  45  for  the  front, 
and  135°  for  the  back.  For  90<  a <180  , linear  interpolation  between  k 
(a  = 90°)  and  k (a  = 180  ) is  used.  The  values  of  a corresponding  to 
the  shock  tube  experiment  are  0 and  180  . 

The  pressure  at  time  zero  plus  is  the  reflected  pressure  for 
surfaces  facing  the  blast  wave  and  zero  for  surfaces  facing  away  from 
the  blast  wave.  The  reflected  pressure  versus  angle  of  incidence  is 
taken  from  Reference  5,  and  is  defined  in  Fig.  5 for  a ^ 90  . For 
a > 90  , Ap(t=0)  is  taken  as  zero. 

The  pressure  at  time  equal  to  infinity  should  be  simply  the  drag 
phase  pressure,  Ap  + c q,  where  c is  the  pressure  coefficient  and  q 
is  the  dynamic  preisure?  However,  ?n  order  to  ensure  transition  from 
the  diffraction  period  loading  to  the  drag  phase  loading,  Ap(t=«‘)  is 
biased  from  this  value.  For  positive  pressure  coefficients, 


Ap(t=“)  = Ap  for  c >0  (32) 

s p 


5 

Lee,  William  N.  and  Mente,  Lawrence  J.,  NOVA-2 — A Digital  Computer 
Program  for  Analyzing  Nuclear  Overpressure  Effects  on  Aircraft, 
Part  1,  Theory,  AFWL-TR-75-262,  Pt  1,  August,  1976. 
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Transition  to  drag  phase  loading  takes  place  when  the  diffraction  loading 
becomes  less  than  the  drag  loading. 

For  negative  c and  a £ 90°, 


Ap(t=“)  = Ap  + 2 c q for  c < 0 
*^s  p p 


(33) 


Transition  to  drag  phase  loading  again  takes  place  when  the  diffraction 
loading  becomes  less  than  the  drag  loading. 

Finally,  for  a>90°  (c^  is  always  negative  for  this  case). 


Ap  (t=»)  = Ap^  c(>90^ 


(34) 


Transition  to  drag  phase  loading  takes  place  when  the  diffraction  loading 
becomes  greater  than  the  drag  loading. 

Returning  to  the  definition  of  the  speed  of  the  waves  from  the  free 
edges,  a,  the  first  step  is  to  define  the  flow  velocity  immediately 
behind  the  incident  shock  wave  pattern.  For  a weak  wave,  the  flow 
velocity  along  the  surface,  W,  is  given  by 


W = 2 w sin  a 


(35) 


where  w is  the  material  velocity  behind  the  shock  wave.  For  a = 90°,  W 
must  be  equal  to  w,  which  is  inconsistent  with  Eq.  35.  In  order  to 
satisfy  the  known  point  at  a = 90  , Eq.  35  is  rather  arbitrarily  replaced 
by  Fig.  6,  which  is  then  used  to  define  the  flow  velocity.  For  a > 90°, 
w is  taken  as  zero. 

The  material  velocity,  w,  and  the  shock  velocity,  V , are  given  in 
terms  of  the  shock  strength,  through  the  Rankine-Hugoniot  relations. 


w 
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Flow  Velo 


0 


FIGURE  6.  FLOW  VELOCITY 
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where  a is  the  ambient  speed  of  sound.  The  speed  of  sound  behind  the 
inciden?  shock  wave  pattern,  a^,  is 


a 


5 


I (8g+7)(2W 
T 7(7+65) 


a for  a=0° 
o 


a.  =^ 


/"r-H  ^ /'lr-t-7^ 
■ ' / 


7+65 


a for  a=90'^ 
o 


(38) 


For  other  angles , a^  is  approximated  as  in  Figure  7 . 

The  preceding  relations  allow  the  definition  of  the  wave  speed  "a" 
for  the  various  incidence  angles  and  surfaces.  These  definitions  are 
given  in  Table  2.  Note  that  6 has  been  interpreted  in  terms  of  the 
corresponding  value  of  a. 

The  development  up  to  this  point  completely  defines  the  diffraction 
phase  loading  for  the  shock  tube  experiments,  since  in  Eq.  27  is 
unity  for  those  cases.  The  model  described  herein  agrees  with  the 
experimental  data  within  experimental  accuracy.  It  should  be  recalled, 
however,  that  the  shock  tube  experiment  was  solely  for  6=0®,  and  was 
also  for  a single  block  geometry.  Accordingly  it  must  be  remembered 
that  the  present  model  is  of  unknown  accuracy  for  other  geometries  and 
incidence  angles,  particularly  for  other  Incidence  angles. 

The  parameter  E,  requires  general  definition.  The  need  for  such  a 
parameter,  which  is  essentially  an  edge  effectiveness  factor,  may  be 
seen  from  the  following  considerations.  Suppose  0 = 45  , The  shock 
then  strikes  the  front  and  left  side  faces  equally.  Hence,  no  clearing 
wave  emanates  from  the  corner  first  struck  by  the  shock  wave  in  either 
direction.  But  the  definition  of  the  relevant  s.  leads  to  small  or  even 
negative  values  of  s.  (see  Eq.  24a).  Since  the  edge  is  actually  com- 
pletely ineffective,^E.  should  be  assigned  a value  of  zero  for  this 
case.  Also,  E.  should ^be  unity  for  a=0®,  to  maintain  the  correlation 
with  the  shock^tube  results.  For  a>90®,  there  is  no  problem  with  the 
definition  of  the  edge  distances  and  E.  should  thus  be  unity.  For  a 
between  45®  and  90®,  the  pressure  on  tfie  relevant  face  is  higher  than 
that  on  the  adjacent  face;  hence,  the  edge  is  ineffective  and  E^  must 
be  taken  as  zero.  Finally,  unless  E^  is  taken  as  zero  for  a slightly 
less  than  45®,  will  go  to  zero  at  moderate  shock  pressure  values,  and 
will  thus  give  unreasonable  results.  Rather  arbitrarily,  E.  has  been 
taken  as  going  to  zero  at  a=30®,  varying  linearly  from  unl^y  at  a=0®  to 
that  value  at  a=30  . E.  is  zero  from  a=30  to  a=90  , and  is  unity  for 
a>90°. 
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TABLE  2 


Definition  of  Wave  Speed,  a 


Surface 
of  Vehicle 

9 

i=l 

■ 

1=3 

1=4 

Left  Side 

a^(0)+W(e) 

a^(e) 

33(0) 

< 0° 

a^deD-wdel) 

asdel) 

a3(|0l)+W(|0|) 

35(16!) 

+90° 

a^(90°)+w 

33(90°) 

(90°)-w 

a3(90°) 

Right  Side 

-90°<e<90° 

a 

o 

a 

0 

a 

0 

a 

0 

-90° 

a^ (90°)-w 

33(90°) 

aJ90°)+w 

D 

33(90°) 

Front 

0°iei90° 

a^(9O-6)-W(9O-0) 

a^(90-e) 

a^(9O-0)+W(9O-9) 

33(90-6) 

-90°<e<o° 

a 

a 

a 

a 

o 

0 

0 

0 

Rear 

O<0<9O° 

a 

a 

a 

a 

o 

0 

0 

0 

-90°£e;<o° 

a^(90+e)+W(90+e) 

83(90+0) 

a^  (90+0  )-W  (90+9) 

83 (90+0) 
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The  next  problem  requiring  attention  is  the  definition  of  for 
non-rectatigular  shapes.  The  development  up  to  this  point  has  been  com- 
pletely ccncerned  with  rectangular  faces.  The  extension  to  non-rectangular 
faces  is  not  obvious.  The  convention  adopted  herein  is  depicted  in  Fig. 

8.  The  surface  treated  is  assumed  to  consist  of  a group  of  rectangular 
surfaces.  For  the  cross-hatched  areas,  the  definition  of  the  is 
consistent  with  that  given  earlier.  For  a point  p in  the  non-cross- 
hatched  area,  s^  and  s^  are  defined  in  the  manner  in  which  Sj^  and  S2 
would  ordinarily  be  derlned.  In  addition,  the  distance  r to'''the  interior 
corner  is  defined  as  indicated  in  Fig.  8.  The  larger  of  s'  and  s'  is 
accepted  as  S-  or  82?  in  Fig.  8,  s£  will  be  taken  as  s^^.  The  smaller 
of  the  remaining  s'  or  r is  taken  as  the  other  s^;  in  Fig.  8,  r will  be 
taken  as  S2. 

Finally  the  top  and  bottom  surfaces  have  not  been  treated  yet.  The 
treatment  adopted  herein  is  simply  to  use  the  drag  phase  loading  always. 
This  is  in  error  at  time  zero,  when  the  pressure  should  be  Ap  and  is 
Instead  Ap^  + c q.  The  difference  is  small,  however,  because“c  is 
small.  Thil  reaE  problem  with  the  top  and  bottom  surfaces  is  thEt  the 
most  significant  effect  on  overall  motion  is  produced  by  the  difference 
between  the  top  and  bottom  surface  loadings.  The  bottom  surface  loading 
cannot  be  predicted  well,  due  to  the  unevenness  of  the  bottom  surface, 
ground  interference,  and  so  forth.  Hence,  an  approximation  to  the  top 
and  bottom  surface  loadings  is  acceptable,  and  the  exclusive  use  of  the 
drag  loading  is  simple  and  expedient. 

The  foregoing  has  defined  the  pressure  at  a point.  Integration 
over  all  points  then  defines  the  loading  on  a surface.  In  practice,  of 
course,  the  integration  is  replaced  by  a sunnnatlon  over  several  points, 
with  each  point  used  as  representative  of  some  portion  of  the  surface  area. 

3 . 3 Drag  Loading 

Following  the  diffraction  phase,  the  pressure  loading  becomes  a 
drag  type  of  loading.  As  indicated  in  the  previous  division,  the  pressure 
loading  during  the  drag  phase  is  given  by 

Ap(t)  = Ap  + c q (39) 

s p 


where  Ap  and  q are  the  overpressure  and  dynamic  pressure  associated 
with  the®blast  wave.  The  task  of  estimating  the  drag-phase  loading  thus 
becomes  a matter  of  determining  the  pressure  coefficient,  c , The 
pressure  coefficient  must  be  determined  for  arbitrary  burst^orlentatlons 
(with  the  shock  assumed  to  be  traveling  parallel  to  the  ground)  for  the 
various  rectangular  areas  which  make  up  the  exterior  surfaces  of  the 
vehicle  model. 

These  are  numerous  factors  which  can  affect  the  value  of  c ; 
however,  most  of  these  will  have  to  be  ignored,  as  will  be  seen?  In 
establishing  reasonable  values  of  c for  this  application,  use  is  made 
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of  available  experimental  data  for  c and  for  the  "drag  coefficient" 
on  box-like  bodies.  represents  a^difference  in  pressure  between 
opposing  surfaces  of  a structure. 

Some  of  the  parameters  which  affect  the  value  of  c are  Reynolds 
number,  corner  radii,  Mach  number,  aspect  ratio  of  body^being  studied, 
ground  effects,  and  the  angle  between  the  flow  velocity  and  the  surface 
normal,  a.  Of  these,  only  the  variation  with  a will  be  considered.  It 
is  rather  obvious  that  a is  the  most  important  of  the  above  parameters 
with  respect  to  affecting  c , and  must  be  accounted  for.  Of  the  remaining 
parameters,  the  most  importint  are  the  Reynolds  number  and  the  corner 
radii,  which  affect  the  critical  Reynolds  number.  The  Reynolds  number 
varies  with  time  as  the  blast  wave  decays,  and  is  also,  of  course,  a 
function  of  blast  wave  strength.  Since  the  largest  drag  loading  occurs 
early  while  the  blast  wave  characteristics  are  near  their  maxima,  the 
selection  of  the  pressure  coefficient  has  been  based  on  Reynolds  numbers 
in  the  vicinity  of  maximum  Reynolds  numbers  associated  with  blast  wave 
strengths  between  about  2 and  10  psi  at  sea  level.  Mach  number  has 
little  effect  for  the  rather  small  Mach  numbers  associated  with  the 
above  blast  strengths.  Aspect  ratio  has  a modest  effect  and  cannot 
easily  be  accounted  for  for  the  odd  shapes  to  be  addressed.  Ground 
effects  are  much  too  complex  to  be  handled  in  the  present  development, 
and  are  undoubtedly  less  important  than  Reynolds  number  and  corner 
radii  effects. 

Thus.,  it  remains  to  determine  c as  a function  of  a.  The  angle  a 
is  the  angle  between  the  material  veEocity  vector  and  the  inward  facing 
surface  normal.  This  is  the  same  as  the  angle  a defined  in  the  previous 

division,  except  that  there,  in  considering  the  diffraction  loading,  the 

vehicle  was  assumed  not  to  move.  In  the  drag  loading  definition,  the 
instantaneous  orientation  of  the  vehicle  is  used,  so  that  the  present  a 
may  be  considered  to  be  a generalization  of  the  a used  in  defining  the 
diffraction  phase  loading. 

First  consider  a block  with  the  shock  front  parallel  to  one  face 
(a=0  ).  For  the  opposite  face,  a = 180  , References  6 and  7 indicate 

that  an  average  value  of  1.25  for  is  reasonable.  At  the  same  time,  a 

good  average  value  of  c for  the  leeward  surface  seems  to  be  about  -0.4 
Hence,  since  C is  rela?ed  to  a pressure  differential,  a value  of  0.85 

for  c is  adopted  for  the  windward  surface. 

P 

Having  assumed  -0.4  and  0.85  as  values  of  c on  the  leeward  and 
windward  sides  (a=0  and  a=180°) , it  is  necessa?y  to  extend  the  formulation 
for  arbitrary  values  of  a.  Referring  to  experimental  evidence  in  Reference 
7 again,  there  is  indication  that  the  value  of  c decreases  by  approx- 
imately a function  of  cosa  for  aOO^  but  thereafBer  somewhat  faster 
until  a value  of  approximately  -0.4  or  -0.5  is  reached  at  about  105°- 
110°.  Thus,  the  following  approximate  formula  is  adopted: 


^Hoerner,  S.  F. , "Fluld-D3niamic  Drag",  1965. 

^Hankins,  DorrlB  M. , Experimental  Pressure  Distributions  and  Force 
Coefficients  on  Block  Forms  for  Varying  Mach  Number,  Reynolds 
Number,  and  Yaw  Angle,  SC-4204 (TR),  January,  1959. 
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c = 
p 


0.85  cos  (g-  a) 


-0.4 


(0<a  1 g 

< a < tt) 


(40) 
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SECTION  ^ 

EQUATIONS  OF  MOTION 


4.1  Intrcduction 


In  the  preceding  sections,  the  raass  model,  the  generalized  coordinates, 
and  the  forces  from  the  springs,  dampers,  and  tires  have  been  introduced. 

In  order  to  obtain  the  equations  of  motion,  the  inertia  terms  must  be  de- 
fined and  the  various  forces  must  be  converted  to  generalized  forces. 

4.2  Inertia  Terms 


The  body-axis  components  of  the  acceleration  of  a mass  are 


-2L  g.  + 2 L g-  - L (g?  + g^)+g, (L  gc+L  g. ) 
y^l  z'^5  X ^1  ®5  "4  y 5 z^l 


(41a) 


^y  " h'Hh  ^i®2  + 


(41b) 


- h<84  + 65)  + 61  (I-^g4  + 1 85) 


(41c) 


These  equations  may  be  found  in  Reference  8,  although  with  different 
variable  names.  As  before,  a dot  indicates  differentiation  with  respect 
to  time.  The  time  derivatives  of  the  lengths  may  easily  be  defined  in 
terms  of  the  time  derivatives  of  the  generalized  coordinates  in  Table  1. 


g 

Hobbs,  Norman  P. , Zartarian,  Garabed,  and  Walsh,  John  P., 

A Digital  Computer  Program  for  Calculating  the  Blast  Response  of 
Aircraft  to  Nuclear  Explosions,  Volume  1,  Program  Description, 
AFWL-TR-70-140,  Vol.  1,  April,  1971. 
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The  inertia  terms  in  the  equations  of  motion  may  be  defined  by  taking 
the  dot  product  of  the  acceleration  vector  and  the  vector  which  defines  the 
displacement  of  a mass  due  to  a unit  displacement  of  a generalized  coordinate, 
and  by  then  integrating  the  mass  times  this  dot  product  over  all  the  masses. 
For  the  generalized  coordinate  g^ , for  example,  the  displacement  of  a mass 
due  to  a unit  displacement  has  the  components  (-L  , L , 0) . The  corres- 
ponding inertia  term  is  thus  ^ 


/( 


-S'82"Si*3'^5«6  V ^‘-2*5 


+L  [ g,  g^+gi  go"^  1*  "bL  S -L  S/"b2L  g.  — 2L  g, 
x‘®3  ^1®2  y x®l  z*4  x®l  24 

-L  (g?  + E?)  + E.  (L  E,  + L E,)Udm 

y 2''i  - 


Recalling  that  the  lengths,  L,  are  measured  from  the  vehicle  center  of 
gravity  and  that  symmetry  exists  about  the  y-z  plane,  and  introducing 
the  discrete  masses,  M,  and  their  Inertias,  I,  about  their  own  centers  of 
gravity,  considerable  simplification  is  possible,  leading  to 


E 


[I  +M(L^+L^)]  g,-  [I  +ML  L ]g, 
zz  X y 1 yz  y z 5 


-ML  g + ML  g + I g , 
y ®x  x°y  zz®!p 


+[I  -I  4M(L^-L^)]g.g, 
yy  XX  X y °4  5 


-[I  4-ML  L ]g,g,  - 2Mg  [L  g,+L  g,.] 
yz  y z ^1^4  ®z  x®4  y°5 


+2Mg^  [L  g + L g ] 
1 y y x®x 


®5^^xx''’^zz  ^yy^^cj) 


+g, [I  +I  -I  ]g. 
®4  yy  zz  xx  “0 
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The  assumption  that  the  product  of  inertia,  I , is  non-zero  only  for 
the  truck  body  mass  has  been  used  in  the  abov^^expression.  In  addition, 
substitutions  such  as  L = have  been  made,  where  it 

will  be  recalled  that  the  length  ^i’^is  measured  from  the  center  of 
gravity  of  the  individual  mass. 

From  the  above  expression,  it  is  apparent  that  the  inertia  terms 
may  be  separated  into  two  parts;  those  Involving  second  derivatives  and 
those  not  involving  second  derivatives.  The  coefficients  of  the  second 
derivative  terms  form  the  generalized  mass  matrix,  which  is  given  in 
Table  3.  Because  of  the  use  of  body  axes  and  the  assumption  of  small 
distortions,  the  mass  matrix  is  constant.  The  terms  not  involving 
second  derivatives  are  called  inertia  forces  here,  and  these  are  listed 
in  Table  4. 

4.3  Generalized  Forces 


The  forces  from  the  springs  and  dampers  and  tires  have  been  derived 
in  Section  2 and  the  aerodynamic  loading  was  developed  in  Section  3, 

These  forces  need  to  be  converted  to  generalized  forces  for  use  in  the 
equations  of  motion. 

The  spring /damper  forces  will  be  designated  as  F . These  forces 
are  in  the  directions  of  the  springs  or  dampers.  In  Bivision  2.3,  a X 
transformation  matrix  was  defined  which  converts  generalized  coordinate 
displacements  into  spring  elongations.  The  generalized  force  may  be 
found  by  talcing  the  dot  product  of  the  spring  force  vector  with  the  spring 
displacement  vector  corresponding  to  a unit  displacement  of  the  generalized 
coordinate.  Thus,  the  generalized  force,  GF,  becomes  simply 


[GF^]  = [F^]  [X] 


(42) 


It  will  be  recalled  that  X contains  no  elements  corresponding  to  the 
first  six  degrees  of  freedom;  that  is,  corresponding  to  the  generalized 
coordinates  for  overall  vehicle  motion.  Hence,  the  spring  generalized 
force  for  each  of  the  first  six  coordinates  is  zero,  which  is  physically 
obvious  since  an  internal  force  cannot  produce  overall  vehicle  motion. 

The  tire  forces  derived  in  Division  2.4  are  in  body-axis  components, 
and  are  designated  by  F^.  The  conversion  to  generalized  forces  is 
obvious  from  the  above  considerations,  and  the  results  are  given  in 
Table  5. 

The  aerodynamic  forces  from  Section  3,  F , are  also  in  body-axis 
components.  The  associated  generalized  force!  are  given  in  Table  6, 

The  generalized  forces  due  to  gravity  may  be  expressed  in  terms  of 
the  g transformation  matrix  which  relates  earth-fixed  axis  motions  to 
body-axis  motions. 
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TABLE  3 


M 


1 1 


M 


1.  5 


M. 


1 > 8,1 


M 


1 . 8. 


M, 


8, 


M 


2 ,2 


GENERALIZED  MASS  MATRIX 

= -y'[I  + ML  L ] 

Z— / yz  y z 

= I 

zz 

= -ML 

y 

= ML 

X 

= M 

-E" 

= M 

= E»xx-^» 

= -ML 

z 

= I 

XX 

= ML 

y 
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TABLE  3 (CONT’D.) 
GENERALIZED  MASS  MATRIX 


^5,5  = 

M_ 

ML 

5,e 

z 

X 

Me 

I 

5,gg 

yy 

Me 

-ML  . 

5,g 

X 

z 

^.6  == 

M, 

M ■ 

M 

' I 

zz 

M 

M 

M 

M 

8y  ’Sy 

M 

I 

XX 

M 

I 

8g  >8g 

yy 

2 . ,2. 


yy 


M = M 


Note  that  and  that  M^»^  = 0 if  not  listed. 

Summations  extend  over  all  masses. 

Where  there  is  no  summation,  the  mass  or  inertia  is  that  associated 
with  the  particular  degree  of  freedom. 
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TABLE  4 


INERTIA  FORCES 


[I  - I + M(L^  - L^)]^,gc 
yy  XX  X V 4^=5 


-[ly^  + M - 2MJ^[L^g^  + J-ygj] 


+2M2,  [L  e + L e 1 - [I  +I  -I  ]gc:g^ 
y&y  x®x'‘  XX  zz  yy  5°(t) 


+ [I  +1  -I  ]g-go^ 
yy  zz  XX  4 6 


- g^[g3  + 2gy]  + g5  [g^  + 2gJ 

SilSg  * ■ h 

+ 2Mg^[L^gy  + L^gJ  - [I^+Iyy-I,,l8ige 


+ [I  +I  - I ] gr  g I 
XX  ZZ  yy 


[I  -I  + M{lJ  - L^lg  g, 
'■  XX  zz  Z X 1 H 


+t ly^+WLyL^ 1 4485-2MEy [ L^Si+I.  A > 

+ iMgjlL^g^  + L^s  !+  [\/Iyy-I„l6ig^ 


- [I  +I  - I ]g,g. 
yy  ZZ  XX  4 ij) 


1 
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TABLE  4 (CONT'D.) 


INERTIA  FORCES 


Xo  rs  -I-  i ri  4-9i  1 . 


^I,  *-^yy“^xx^®4%  “ ^^xx'^^zz~^yy^®5®<{i 


+ tv  'zz  - 


= M 


F^  = M 


- kilk-^+^ky]  + g5  •^S6''‘^®z^~^x^^l 


+ &4[L  g5  ^z^l^ 


gl[g2+2g^]  - g4  - ^y  fgj  + gj] 


^^zz~^yy^®l®5  ~ ^^xx‘''^yy“^zz  ^®l®e 


+ [I  +I  -I  ]g-g, 
XX  zz  yy 


^I,  ^^xx  ^zz^Ma  ^^xx  ^yy"  ^zz^%®i)) 


’fVzz'^xx^^AS 


F^  = M 


®4'«3  + ^«y'  ' H '■h*  %’ 


A9 


TABLE  5 


GENERALIZED  FORCES  FROM  TIRE  FORCES 


GF  = - (L  - R)F  + L F^ 
t,  y t X t 

l x y 


GF  = F 

2 X 


3 y 


GF  =.-L^F^  +(L  -R)F^ 

4 y ■’  z 


GF^  = L F^  - L F^ 

tc  Z t X t 

5 X z 


GF  = F 
^6  z 


GF  =-(£,-  R)F^  + £ F^ 
t , y t X t 

ip  ■'  X y 


GF^  =F^ 

y y 


Note:  Since  the  axles  have  only  >})  and  y degrees  of  freedom,  GF^  , 

X 

GF  , GF  , and  GF  are  not  required. 

’^(j)  ^0  z 

* For  a tracked  vehicle  with  no  axle  connecting  the  two  tires , the 
F contribution  must  be  discarded;  hence,  GF  = F for  a 

t t X t 

X X y 

tracked  vehicle. 
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TABLE  6 


GENERALIZED  FORCES  FROM  AERODYNAMIC  LOADS 


all 


[-L  F + L F ] 
y-  a X a 
X y 


GF 

^2 


E 

all 


F 


a 

z 


E 

shelter 


[-1  F 

y a. 


a F 
X a 


= E 

y shelter  y 


E 

shelter 


[-a 


F 

z a 


y 


+ 


£ F 

y a 

z 


] 


shelter  z 


Note:  Aerodynamic  loads  do  not  act  on  the  racks,  vfhich  are  presumed  to 
be  inside  the  shelter.  Aerodynamic  loads  on  the  tires  are  allowed  only 
in  the  x direction,  and  the  axles  do  not  have  an  x degree  of  freedom. 
Hence,  generalized  forces  from  the  aerodynamic  loads  exist  only  for  the 
overall  vehicle  degrees  of  freedom  and  the  shelter  degrees  of  freedom. 


51 


(43) 


GF 

8x 

^2,1 

GF 

. = - Mg  . 

^2,2 

GF 

L 

^2,3 

For  overall  vehicle  degrees  of  freedom,  summation  over  all  masses  is 
required.  For  Individual  masses,  of  course,  only  the  relevant  mass  is 
used.  No  generalized  forces  due  to  gravity  exist  for  the  rotational 
degrees  of  freedom  since  the  centers  of  gravity  are  used  as  references. 

The  inertia  forces,  F^,  are  generalized  forces  and  need  no  further 
definition.  The  resulting  equations  of  motion  are 

‘"l.jl  {*)  ■ {“"s}  - {’'ll  («> 


The  right-hand  side  of  Eq.  44  contains  no  second  derivatives;  hence, 
knowing  displacements  and  velocities,  the  right-hand  side  may  be  eval- 
uated. Multiplying  the  right-hand  side  by  the  inverse  of  the  generalized 
mass  matrix  then  gives  the  generalized  accelerations.  Note  that  the 
generalized  mass  matrix  is  constant,  and  may  thus  be  inverted  once  and 
for  all.  Having  the  generalized  accelerations,  the  generalized  displace- 
ments and  velocities  a short  time  later  may  be  estimated.  The  process 
then  is  repeated,  advancing  time  until  the  desired  time  period  has  been 
covered.  Estimation  of  displacements  and  velocities  is  accomplished 
using  fifth-order  open  Adams  integration. 
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SECTION  5 

COMPUTER  PROGRAM 


5 . 1 General  Description 

A computer  program  has  been  prepared  based  upon  the  formulations 
in  the  previous  sections.  This  program  (TRUCK,  version  2.0)  is  written 
in  standard  ANSI  FORTRAN  and  consists  of  43  user-supplied  routines 
and  approximately  4400  card  images.  This  section  describes  the 
organization  of  the  code  (subsection  5.2),  the  operation  of  the  code 
(5.3),  program  input  (5.4),  program  output  (5.5),  and  presents  an 
example  problem  in  subsection  5.6.  In  addition.  Appendix  A presents 
a macro  cross-reference  list  of  all  program  variables  and  Appendix  B 
a complete  source  listing  of  the  code. 

As  an  introduction  to  the  inner  workings  of  the  code,  the  major 
program  steps  are  outlined  below  in  sequential  order: 

1)  Input  data  are  read.  The  input  is  described  in  detail  in 
division  5.4. 

2)  The  vehicle  center  of  gravity  position  is  calculated  and  the 
reference  point  is  shifted  to  the  center  of  gravity. 

3)  The  X matrix,  which  transforms  generalized  coordinate  displace- 
ments into  spring  elongations,  is  formed. 

4)  The  vehicle  is  trimmed;  that  is,  the  generalized  coordinate 
displacements  which  place  the  vehicle  in  equilibrium  under  the 
action  of  gravity,  tire  forces,  and  spring  forces  are  determined. 
Because  the  spring  and  tire  forces  are  non-linear,  a trial  and 
error  procedure  must  be  used.  Basically,  each  generalized  coordinate 
is  perturbed  very  slightly,  and  the  resulting  changes  in  generalized 
accelerations  are  found.  This  gives  approximate  local  derivatives 
which  can  be  extrapolated  to  find  an  estimated  equilibrium  state. 

The  process  is  repeated  until  acceptable  convergence  is  obtained. 

If  guy  wires  are  present  on  the  shelter,  a preliminary  trimming 
takes  place,  in  which  the  shelter  and  racks  are  trimmed  with  the  guy 
wire  loads  at  the  specified  values.  This  trim  takes  place  with  the 
truck  body  assumed  to  be  horizontal.  This  pretrim  allows  the  guy 
wire  force-deflection  curves  to  be  biased  so  that  the  subsequent 
overall  trim  can  take  place  with  the  guy  wires  treated  as  ordinary 
springs.  The  overall  trim  will  change  the  guy  wire  loads  due  to 
the  fact  that  the  truck  body  will  not,  in  general,  end  up  horizontal. 
The  chang;e  will  be  slight,  however. 

5)  The  generalized  mass  matrix  is  calculated  and  Inverted. 

6)  The  main  response  loop  begins.  Within  this  loop,  the 
following;  steps  take  place. 
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a)  The  Euler  angles  are  calculated. 

b)  The  3 transformation  matrix  is  determined. 

c)  The  earth-fixed  axis  position  of  the  vehicle  is  found. 

d)  The  springs  are  checked  to  see  if  any  of  them  have 
bottomed  out.  If  they  have,  rebound  calculations 
are  made  to  determine  the  new  generalized  velocities, 
and  the  numerical  integration  is  restarted. 

e)  Generalized  gravitational  forces  are  calculated. 

f)  Generalized  spring  and  damper  forces  are  determined. 

g)  Generalized  tire  forces  are  calculated.  This  calculation 
requires  determining  the  state  of  the  tire  - off  the 
ground,  sliding,  or  not  sliding. 

h)  The  generalized  aerodynamic  forces  are  determined. 

i)  The  inertia  forces  are  claculated. 

j)  The  above  generalized  forces  are  accumulated  and 
the  result  multiplied  by  the  inverse  of  the  mass 
matrix  to  yield  the  generalized  accelerations. 

k)  Integration  takes  place  to  estimate  the  generalized 
displacements  and  velocities  one  time  step  forward. 

l)  The  cycle  is  repeated  until  the  time  reaches  the  stop 
time  specified  in  the  input. 

7)  Upon  completion  of  the  time-history  response,  a determination 

is  made  whether  the  vehicle  has  overturned.  If  the  user  has  selected 
the  iterative  option,  the  program  then  automatically  adjusts  the  peak 
Incident  overpressure  and  reruns  the  response  (Step  6)  until  the 
threshold  of  overturning  is  determined  to  within  approximately  2% 
on  overpressure . 

8)  At  this  point  the  process  is  repeated  (Steps  6 and  7)  for  other 
blast  orientations  and  yields,  if  requested,  in  order  to  generate 
vulnerability  envelopes  or  other  response  runs. 

9)  A different  vehicle  can  be  analyzed,  beginning  with  Step  1. 
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5.2  Description  of  Routines,  Common  Blocks,  and  Dimensioned  Variables 

Table  7 lists  all  the  routines  and  common  blocks  which  make  up 
the  TRUCK  code  and  gives  the  length  of  each  common.  An  "X"  Indicates 
that  a particular  common  belongs  in  a particular  routine.  The  names 
of  variables  within  common  blocks  are  the  same  throughout  the  program. 

Program  flow  diagrams  of  the  major  routines  are  presented  in 
Figures  9 through  13.  These  figures  indicate  in  more  detail  the 
program  steps  outlined  in  division  5.1, 

Tables  8 , 9 , and  10  are  intended  to  provide  all  the  information 
necessary  to  increase  or  decrease  dimensions  within  the  program. 

Table  8 lists  in  both  parametric  and  numeric  forms  the  current  maximum 
dimensions.  These  dimensions  should  also  be  consulted  when  forming 
input  (division  5.4)  to  be  sure  the  data  is  within  the  limits  of 
the  program. 

If  either  larger  or  smaller  dimensions  are  desired.  Table  9 lists 
program  changes  required  by  specific  changes  in  dimensions.  Table  10 
then  lists  all  the  dimensioned  variables  which  might  need  to  be  changed. 
These  variables  are  all  located  in  common.  Variables  whose  dimensions 
need  not  be  changed  are  not  listed. 

5.3  Program  Operation 

The  TRUCK  program  was  written  in  ANSI  standard  FORTRAN  IV  and 
developed  on  a (CDC)  6600  computer  under  the  SCOPE  3.4.4  operating 
system.  The  code  should  be  easily  adaptable  to  any  modern,  large 
scientific  computer.  Double  precision  is  required  for  systems  utilizing 
a relatively  short  word  length. 

Blank  common  is  utilized  in  order  to  minimize  the  core  required  to 
load  and  execute.  Using  compile  option  "0PT=1"  (a  medium  optimization 
level)  the  code  requires  29  seconds  to  compile  and  131,000  octal  cells 
of  memory  to  load  and  execute. 

Computation  times  will  vary  considerably,  depending  on  the  vehicle, 
the  complexity  of  the  model,  and  the  number  of  orientations  considered. 
The  example  problem  described  in  subsection  5.6  required  220  cp  seconds 
for  2540  integration  steps  (primary  4t  = 0.5  msec). 

Input  and  output  are  equated  with  logical  files  TAPES  and  TAPE6, 
respectively.  TAPES  is  reserved  for  graphics,  although  the  code  does 
not  Include  any  graphics  at  this  time. 
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FIGURE  10.  FLOW  DIAGRAM  FOR  SUBROUTINE  AERO 
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BEGIN 


YES  \ 

FSPRNG  * — “<C^OF  > 6 

j NO 

► TIRES 


STILL  IN 
'v.  TRIM 


SUM  UP  GENERALIZED 
FORCES  FOR 
GRAVITY,  SPRINGS, 
TIRES 


RETURN 


S FORCE 


KSHELT  = 0 


KRACKS  = 0 


RFORCE 


SUM  ALL  EXTERNAL 
GENERALIZED  FORCES 


FIGURE  II.  FLOW  DIAGRAM  FOR  SUBROUTINE  EXTRNL 
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FIGURE  12.  FLOW  DIAGRAM  FOR  SUBROUTINE  MOTION 
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BEGIN 


FIGURE  13.  FLOW  DIAGRAM  FOR  SUBROUTINE  TRIM 
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TABLE  8 


MAXIMUM  DIMENSIONS  IN  TRUCK 


Description  of  Variable 

f 

Variable 

Maximum 

Dimension 

Number  of  Shelter  Springs  per  Side 

KSHELT 

A 

No  L^mit 

Number  of  Guy  Wires  per  Side 

KWIRES 

'‘A 

Number  of  Racks  per  Side 

KRACKS 

3* 

Number  of  Axles 

KAXLES 

6* 

Number  of  Bogie  Springs  per  Side 

KBOG 

2* 

Number  of  Tires  per  Axle  per  Side 

NTIRES 

3 A 

Number  of  Springs  per  Axle  per  Side 

NASPR 

No  Limit ^ 

Number  of  Springs  per  Rack  per  Side 

NRSPR 

No  Limit 

Total  Entries  in  all  Force-Velocity 

Tables  per  Side 

MDIMDP 

600 

Total  Entries  in  all  Force-Displacement 

Tables  per  Side 

MAXSPR 

600 

Number  of  Aerodynamic  Boxes 

NBOX 

4 

Number  of  Aerodynamic  Grid  Areas  per  Surface 
per  Box 

NPS 

16 

Number  of  Distinct  Orientations  per  Job 

JMAX 

19 

Number  of  Distinct  Weapon  Yields  per  Job 

KMAX 

6* 

Total  Number  of  Springs 

MSPRNG 

100* 

Total  Number  of  Masses 

MASSES 

10a 

Total  Number  of  Degrees  of  Freedom 

MDOF 

50 

Special  Constraints: 

MSPRNG  a 2 [ (1-KRIGID) (KSHELT+KWIRES+KBOG) 

4-KBOG  + ^NRSPR  + ^NASPE 
KRACKS  KAXLES 

MASSES  = 1 + KRACKS  + KAXLES  - KRIGID  + < 

MDOF  =6-5  KRIGID  + 2 KAXLES  +12  KRACKS 

] 

0,  KSHELT=0 

1,  KSHELT>0 

lu, 

( 4,  KSHELT>0 
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TABLE  9 


PROGRAM  CHANGES  NECESSITATED  BY  DIMENSION  CHANGES 


When  Changing  the 

Dimension  Corresponding  to: 

Also  Change  the  Fixed-Point  Number 
in  the  Indicated  Statement 

Subroutine 

* 

Location 

MSPRNG 

BLOCK  DATA 

MAXSPR 

BLOCK  DATA 

MDIMDP 

BLOCK  DATA 

MDOF 

BLOCK  DATA 

MASSES 

BLOCK  DATA 

KRACKS 

BLOCK  DATA 

JMAX 

SUMTAB 

KMAX 

SUMTAB 

50  ? 

JMAX  or  KMAX 

SUMTAB. 

50  in 

MDOF 

MATXIN 

lO-f 

MDOF 

RELAX 

50“^ 

* 

The  location  code  is  interpreted  as  follows: 

S^  refers  to  the  line  after  statement  number  S. 
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TABLE  10 


LIST  OF  DIMENSIONED  VARIABLES 


VARIABLE  (DIMENSION) 

QR  (2*MD0F) 

QRD  (6,2*MDOr) 

QRP  (2*MDOF) 

EXPAN  (MSPRNG) 

NBOTTOM  (MSPRNG) 

SBOTM  (MSPRNG) 

VEL  (MSPRNG) 

/AS 

FAERO  (MDOf''-^'’) 

FORCE  (MDOF) 

GENACC  (MDOF) 

(2) 

GENDIS  (MDOF^  '^) 

GENVEL  (MDOF*'^^) 

XBARCM  (3,  MASSES+KRACKS) 
CGMASS  (MASSES+KRACKS) 
CGPOS  (3,  MASSES+KRACKS) 
DAMPF  (MDIMDP) 

DAMPV  (MDIMDP) 

ISDAMP  (MSPRNG/ 2) 

NPDAMP  (MSPRNG/2) 

XII  (MASSES+KRACKS) 

XI2  (MASSES+KRACKS) 

XI3  (MASSES+KRACKS) 

DISP  (MSPRNG) 


COMMON  BLOCK  ASSIGNMENT 
ADAM 
ADAM 
ADAM 
BOTM 
BOTM 

/ 

BOTM 

BOTM 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

DATAIN 

DATAIN 

DATAIN 

DATAIN 

DATAIN 

DATAIN 

DATAIN 

DATAIN 

DATAIN 

DELTAS 
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TABLE  10  (CONI' D) 


LIST  OF  DIMENSIONED  VARIABLES 


VARL^LE  (DIMENSION) 
FGRAV  (MDOF) 

FI  (MDOF) 

FTIRES  (MDOF) 

SPRNC  (MDOF) 

FORC  (MSPRNG) 

V (MEIPRNG) 

GENDIX  (MDOF) 

XLAMEA  (MSPRNG,  MDOF-6) 
JFIR  (NFS,  6,  NBOX) 

KTS  (NBOX) 

NPS  (6,  NBOX) 

S (NPS,  6,  NBOX) 

511  (NPS,  6,  NBOX) 

512  (NPS,  6,  NBOX) 

513  (NPS,  6,  NBOX) 

514  (NPS,  6,  NBOX) 

SJl  (NPS,  6,  NBOX) 

SJ2  (NPS,  6,  NBOX) 

SJ3  (NPS,  6,  NBOX) 

SJA  (NPS,  6,  NBOX) 

TD  (NPS,  6,  NBOX) 


COMMON  BLOCK  ASSIGNMENT 
EXTDIM 
EXTDIM 
EXTDIM 
EXTDIM 
FSPDIM 
FSPDIM 
ITER 

BLANK  COMMON 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
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TABLE  10  (CONT'D) 

LIST  OF  DIMENSIONED  VARIABLES 


VARIABLE  (DIMENSION) 

XBOX  (NFS,  6,  NBOX) 

YBOX  (NPS,  6,  NBOX) 

ZBOX  (NPS,  6,  NBOX) 

XMASS  (MDOF^^^,  ) 

KOL(MDOF) 

ROW(MDOF) 

AMAX  (MDOF) 

AMIN  (MDOF) 

ANGLE  (JMAX) 

CIP  (JMAX,  KMAX) 

CIQ  (JMAX,  KMAX) 

CPSIG  (JMAX,  KMAX) 

CPSO  (JMAX,  KMAX) 

CRKM  (JMAX,  KMAX) 

DMAX  (MDOF) 

DMIN  (MDOF) 

IFL  (JMAX,  KMAX) 

SMAX  (MSPRNG) 

SMIN  (MSPRNG) 

TAMAX  (MDOF) 

TAMIN  (MDOF) 

TDMAX  (MDOF) 


COMMON  BLOCK  ASSIGNMENT 
LOAD 
LOAD 
LOAD 
MASS 
MATDIM 
MATDIM 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
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TABLE  10  (CONT’D) 

LIST  OF  DIMENSIONED  VARIABLES 


VARIABLE  (DIMENSION) 
TDMIN  (MDOF) 

TSMAX  (MSPRNG) 

TSMIN  (MSPRNG)' 

TVMAX  (MDOF) 

TVMIN  (MDOF) 

VMA)i  (MDOF) 

VMIl^  (MDOF) 

YIELD  (KMAX)  ' 

KAX].B  (KBOG) 

NASPR  (KAXLES) 

NRSPR  (KRACKS) 

XBO(;iE  (KBOG) 

PRELOD  (KWIRES) 

DELX  (MDOF) 

IP  (MDOF) 
pres;  (MDOF) 

PX  (MDOF) 

RRES.  (MDOF) 

SIGX  (MDOF) 

XRES  (MDOF,  MDOF) 

XXI  (MDOF) 


COMMON  BLOCK  ASSIGNMENT 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
MAXMIN 
OPTION 
OPTION 
OPTION 
OPTION 
PRELOD 
RLP 
RLP 
RLP 
RLP 
RLP 
RLP 
RLP 
RLP 
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TABLE  10  (CONCL'D) 


LIST  OF  DIMENSIONED  VARIABLES 


VARIABLE  (DIMENSION) 

FOFX  (MAXSPR) 

JCURVE  (MSPRNG/2  + 2) 

NPPC  (MSPRNG/2  + 2) 

X (MAXSPR) 

NTIRES  (KAXLES) 

TLX  (NTIRES,  KAXLES) 

TLY  (KAXLES) 

TLZ  (KAXLES) 

DELTNXO,  2,  NTIRES*KAXLES) 
DELTNl  (3,  2,  NTIRES*KAXLES) 
DTTNX  (2,  NTIRES*KAXLES) 
DTTNl  (2,  NTIRES*KAXLES) 

SLID  (2,  NTIRES*KAXLES) 

ER  (MDOF^^^) 

WGTS  (MASSES+KRACKS) 

Special  Constraints: 


(1) 

Dimension 

must 

be 

MDOF 

or 

(2) 

Dimension 

must 

be 

MDOF 

or 

(3) 

Dimension 

must 

be 

MDOF 

or 

COMMON  BLOCK  ASSIGNMENT 
SPRING 
SPRING 
SPRING 
SPRING 
TIREC 
TIREC 
TIREC 
TIREC 
TIREC 
TIREC 
TIREC 
TIREC 
TIREC 
TRMDIM 
WEIGHT 

6 , whichever  is  greater. 

8,  whichever  is  greater. 

12,  whichever  is  greater. 
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5.4  Input  Data 


This  section  is  intended  to  provide  the  user  with,  the  necessary 
instructions  to  generate  card  input  for  the  TRUCK  code.  Tables  11  and 
12  contain  the  basic  input  instructions,  while  the  following  discussion 
contains  general  remarks  and  amplification  of  some  of  the  specific 
instructions. 

The  input  data  are  specified  in  groups,  where  each  group  begins  on 
a separate  card.  More  than  one  card  may  be  required  for  a group, 
however.  The  variable  type  and  format  corresponding  to  each  data  group 
are  given  in  Table  12  and  are  always  in  fields  of  12,  except  for  Group 
1.  For  convenience,  floating  point  numbers  can  be  left  Justified  in  the 
field  as  long  as  the  exponent  is  right  Justified.  Also,  zero  values  can 
be  replaced  by  a blank  field.  Columns  73  through  80  are  not  used  for 
data  and  can  be  used  for  card  identification  or  other  purposes. 

All  input  parameters,  where  appropriate,  should  be  compared  with 
the  maximum  dimensions  provided  for  in  the  program,  as  delineated  in 
Table  8.  This  is  important  since  the  program  does  not  check  all  input 
for  violations. 

In  general  terms,  the  input  consists  of  defining:  1)  the  mechan- 
ical model  of  the  vehicle,  2)  the  aerodynamic  model,  and  3)  the  blast 
characteristics.  The  axis  system  used  to  define  both  the  vehicle  and 
aerodynamic  models  is  shown  in  Figure  1.  The  origin  to  be  used  for  data 
input  is  arbitrary  except  that  the  x = 0 plane  defines  the  vehicle  plane 
of  symmetry.  The  units  to  be  used  are  as  follows: 

2 

Mass  in  lb-sec  /in 

Length  in  Inches  (unless  otherwise  stated) 

Time  in  seconds 

The  restriction  to  the  above  set  of  units  results  from  th^  fact  that  the 
blast  characteristics  routines  provide  pressure  in  Ibs/in'^.  Note  that 
the  acceleration  due  to  gravity  in  Group  23  of  Table  12  must  be  specified 
as  386.0  in  order  to  be  consistent  with  the  above  units. 

Group  1 of  the  data  represents  a free  field  run  identifier  which 
might  contain  vehicle  identification,  the  date,  etc.  It  is  not  used 
within  the  program,  unless  it  begins  with  "END".  The  "END"  represents  a 
flag  which  terminates  the  run;  otherwise  multiple  runs  can  be  stacked 
one  behind  the  other. 

Group  2 dictates  whether  the  vehicle  has  conventional  tires 
(I0PT=0)  or  is  a tracked  vehicle  such  as  a tank  (I0PT=1) . 

The  basic  components  of  the  vehicle  system  are  indicated  in  Group 
3.  Table  11  should  be  consulted  to  make  sure  a consistent  set  of  data 
Is  selected. 
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TABLE  11 


ACCEPTABLE  INPUT  PARAMETERS  FOR 
MAJOR  PROGRAM  OPTIONS 


INPUT 

OPTION  A 

OPTION  B 

PARAMETER 

RIGID  BODY  - THREE 
DEGREES  OF  FREEDOM 

MINIMUM  OF  10  DEGREES 
FREEDOM 

KRIGID 

1 

0 

KAXLES 

1 

2, 3, 4, 5. 6 

KSHELT 

0 

0,1,2, 

KWIRES 

0 

0 if  KSHELT=0; 
0,1, 2, 3, 4 
otherwise 

KBOG 

0 

0,  1,  2 

KRACKS 

0 

0,  1,  2,  3 

KTS  (N) 

Call  N) 

1 

1,  2 
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TABLE  12 


INPUT  DATA 


GROUP 

FORMAT 

INPUT  DATA 

1 

40A2 

Run  identification,  up  to  80  characters:  IDD 

2 

112 

Vehicle  type : lOPT 

0,  Wheeled  Vehicle 

1 , Tracked  Vehicle 

3 

6112 

Configuration  data: 

, KSHELT,  KWIRES,  KRACKS,  KAXLES,  KBOG, 

KRIGID 

KSHELT  = Number  of  springs  (not 
including  guy  wires) 
attaching  left  side  of 
shelter  to  left  side  of 
truck  (0  if  shelter  is 
rigidly  attached  to  truck  or 
no  shelter  at  all). 

KWIRES  = Number  of  guy  wires  on  left 
side  of  shelter  (0  if  KSHELT 
= 0). 

KRACKS  = Number  of  racks  in  left  side 
of  shelter  (0  if  racks  are 
rigidly  attached  to  shelter) . 

KAXLES  = Number  of  axles  on  truck. 

KBOG  = Number  of  bogie  springs  on 
left  side  of  truck. 

KRIGID  = Rigid  body  flag;  0 gives 

ordinary  run;  1 gives  three 
degrees  of  freedom  run  - roll, 
sideslip  and  heave.  See  Table 
11. 

4 6112  Number  of  tires  on  left  end  of  each  axle: 

NTIRES  (I),  I“l,  KAXLES 

5 6112  Number  of  springs  on  left  side  of  each 

axle,  not  including  bogie  springs: 

NASPR  (1),  1=1,  KAXLES  (0  if  KR1GID=1) 

6 6112  Number  of  springs  on  each  rack  in  left 

side  of  shelter: 

NRSPR(I),  1=1,  KRACKS  (Omit  Group  6 if 

KRACKS  = 0) 
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TABLE  12  (CONT'D) 


INPUT  DATA 


GROUP  FORMAT 

7 4F12.1 


8 F12.1 

9 3F12.1 

10  6F12.1 


11 

2F12.1 

12 

6F12.1 

INPUT  DATA 


Masses  and  their  locations.  Each  card  con- 
tains the  mass  value  and  the  x,  y,  and  z 
coordinates  of  its  center  of  gravity.  One 
card  for  each  mass.  Order  of  masses  is: 
Vehicle  body 

Axles  (front  to  rear,  include  in  vehicle 
body  mass  if  KRIGID=1) 

Shelter  (included  in  vehicle  body  mass 
if  shelter  rigidly  attached) 
Racks  in  left  side  of  shelter  (all 

racks  Included  in  vehicle  body 
mass  if  racks  rigidly  attached) . 
The  number  of  cards  will  be  (1+KAXLES+ 
KRACKS)  if  KSHELT=0,  and  (2+KAXLES+KRACKS) 
if  KSHELT>0.  If  KRIGID=1,  there  is  only 
one  card. 

Product  of  inertia  of  mass  1,  I . Other 
products  o£  iusirti-s  src  d^!  o bs  2ero* 

Mass  moments  of  inertia,  I , I , I 

XX  yy  Z2 

The  number  of  cards  is  the  same  as  in 
group  7. 

Attachment  points  for  axle  springs.  Each 
card  will  contain  the  x,  y,  z coordinates 
of  the  point  on  the  vehicle  body  to  which 
the  spring  is  attached  and  the  x,  y,  z 
coordinates  of  the  point  on  the  axle  to 
which  the  spring  is  attached.  One  card 
for  each  left-side  axle  spring.  The 

KAXLES 

number  of  cards  will  be  ^ NASPR(I). 

1=1 

(omit  Group  10  if  KRIGID=1) 
y and  z - coordinates  of  one  axle. 

X - coordinates  for  wheels  on  axle  described 
in  Group  11,  ordered  from  inside-out. 

(Repeat  Groups  11  and  12  for  each  axle) 
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TABLE  12  (CONI' D) 


INPUT  DATA 


GROUP  FORMAT 

13  I12,F12.1 


14  6F12.1 


15  6F12.1 


16  6F12.1 


17  6F12.1 


INPUT  DATA 


Attachment  points  for  bogie  springs.  One 
card  for  each  left-side  bogie  spring.  Each 
card  will  contain  the  number  of  the  forward 
axle  of  the  pair  comprising  the  bogie  and 
the  X coordinate  of  the  bogie  spring. 

(The  bogie  spring  is  assumed  to  act  parallel 
to  the  y axis  and  the  bogie  is  assumed  to 
be  symmetrical.)  (Omit  Group  13  if  KBOG=0) 

Attachment  points  for  shelter  springs.  One 
card  for  each  left-side  shelter  spring. 

Each  card  will  contian  the  x,  y,  z coor- 
dinates of  the  point  on  the  vehicle  body  to 
which  the  spring  is  attached  and  the  x,  y, 
z coordinates  of  the  point  on  the  shelter 
to  which  the  spring  is  attached.  (Omit 
Group  14  if  KSHELT=0). 

Attachment  points  for  guy  wires.  One  card 
for  each  left-side  guy  wire.  Each  card 
will  contain  the  x,  y,  z coordinates  of  the 
point  on  the  vehicle  body  to  which  the  guy 
wire  is  attached  and  the  x,  y,  z coordinates 
of  the  point  on  the  shelter  to  which  the 
guy  wire  is  attached.  (Omit  Group  15  if 
KWIRES=0) . 

Attachment  points  for  rack  springs.  Each 
card  will  contain  the  x,  y,  z coordinates 
of  the  point  on  the  left  rack  to  which  the 
spring  is  attached  and  the  x,  y,  z coordinates 
of  the  point  on  the  shelter  to  which  the 
spring  is  attached.  One  card  for  each 
left-side  rack  spring.  The  number  of 
KRACKS 

cards  will  be  ^ NRSPR(I). 

1=1 

(Omit  Group  16  if  KRACKS=0) . 

Preloads  in  guy  wires,  one  number  for  each 
left-side  guy  wire.  (Omit  Group  17  if 
KWIRES=0) . 
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TABLE  12  (CONT’D) 


GROUP 

18 


19 

20 


INPUT  DATA 


FORMAT 

I12,(6F12.1) 


2F12.1 


112, (6F12.1) 


INPUT  DATA 

Non-linear  damping  force-velocity  curves. 

One  curve  for  each  left-side  spring. 

Order  of  the  springs  is : 

Axle  springs  on  left  side 
Bogie  springs  on  left  side 
Shelter  springs  on  left  side 
Guy  wires  on  left  side 
Rack  springs  on  left  side 
The  number  of  curves  will  be 
KAXLES  KRACKS 

^ NASPR(I)+KBOG+KSHELT+KWIRES+  ^ NRSPR(I) 
1=1  1=1 
(If  KRIGID=1,  there  will  be  no  curves,  so 
this  group  will  be  omitted).  Each  curve 
will  be  described  by  several  points  on  the 
curve.  The  points  must  proceed  from  the 
compression  stroke  (negative  velocity, 
positive  force)  to  the  rebound  stroke 

extreme  compression  and  rebound  velocities 
must  be  large  enough  to  include  any  veloc- 
ities which  may  be  encountered  during  the 
response  calculations.  For  each  curve, 
the  first  card  will  contain  the  number  of 
points  that  will  be  specified  for  the  curve. 
Subsequent  cards  will  contain  velocity-force 
pairs,  each  pair  defining  a point.  There 
will  be  three  pairs  per  card.  The  program 
dimensions  permit  the  number  of  curves  to 
be  MSPRNG/2-KB0G.  The  total  number  of  points 
defining  the  curves  can  be  no  greater  than 
MDIMDP  (see  Table  8). 

Tire  damping  coefficients.  Forces  per  unit 
velocity  in  the  radial  and  tangential 
directions.  Both  coefficients  should  be 
input  as  positive  numbers. 

Non-linear  spring  force-displacement  curves. 

One  curve  for  each  left-side  spring.  The 
order  and  number  are  as  described  in  Group 
18.  Each  curve  will  be  described  by  several 
points  on  the  curve.  The  points  must  pro- 
ceed from  compression  (negative  displace- 
ment , positive  force)  to  tension  (positive 
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TABLE  12  (CONI' D) 


GROUP 


21 

22 

23 

24 


INPUT  DATA 


FORMAT 


INPUT  DATA 


displacement,  negative  force).  The  extreme 
compression  and  tension  displacements  are 
interpreted  as  defining  bottoming  of  the 
spring.  For  each  curve,  the  first  card 
will  contain  the  number  of  points  that  will 
be  specified  on  the  curve.  Subsequent  cards 
will  contain  displacement-force  pairs,  each 
pair  defining  a point.  There  will  be  three 
pairs  per  card.  The  total  number  of  points 
defining  the  curves,  including  groups  21 
and  22,  can  be  no  greater  than  MAXSPR 
(see  Table  8) . 

I12,(6F12.1)  Tire  non-linear  force-normal  displacement 

data.  Specified  in  same  manner  as  Group 
20  data,  except  that  positive  displacements 
will,  of  course,  give  zero  force  and  bottom- 
ing out  is  not  included.  Hence,  first  data 
point  should  be  a large  enough  (negative) 
displacement  to  include  any  displacement 
which  may  be  encountered  during  the  response 
calculations  and  last  point  specified  should 
be  0.0,  0.0. 

I12,(6F12.1)  Tire  non-linear  force-tangential  displacement 

data.  Specified  in  same  manner  as  Group  20 
data,  except  that  only  magnitudes  are  needed 
and  there  is  no  bottoming  out.  Hence,  first 
data  point  specified  should  be  0.0,  0.0,  and 
last  data  point  should  be  a large  enough 
displacement  to  include  any  displacement 
which  may  be  encountered  during  the  response 
calculations.  All  displacements  and  forces 
should  be  positive. 

3F12.1  Tire  radius,  coefficient  of  sliding  friction 

between  tire  and  ground,  and  acceleration 
due  to  gravity. 

3F12.1  Ground  slope  data.  Ground  slopes  in  regions 

1 and  2,  in  radians,  positive  if  height 
Increases  as  one  moves  in  the  positive  x 
direction;  and  the  x coordinate  at  which 
the  slope  changes  (see  Figure  2) . 


# 
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TABLE  12  (CONT'D) 


INPUT  DATA 


GROUP 

FORMAT 

INPUT  DATA 

25 

2F12.1 

Response  time  at  which  run  ends  and  primary 
integration  time  step. 

26 

112 

Number  of  primary  time  steps  between  print  outs. 

27 

112 

Number  of  rectangular  boxes  used  in  aerodynamic 
model  - includes  both  truck  and  shelter  boxes , 
NBOX. 

28 

4112 

Code  designating  type  of  each  box:  KTS(N),  N=l, 

1 - Box  (shelter  or  otherwise)  rigidly 

attached  to  truck 

2 - Box  represents  shelter  and  is  not  rigidly 

attached  to  truck. 

29 

112 

Nuinber  of  aerodynamic  load  points  on  surface, 
NPS(I,N),  where  I refers  to  the  surface  code 
(see  Figure  14).  If  no  load  is  applied  set 

NPS  = 0.  (Note:  If  NPS  (I,N)=0,  skip  groups  30 
and  31 . ) 

30 

4F12.1 

Loading  information: 

XB(K,I,N)  = x-position  of  load  point. 
YB(K,I,N)  = y-position  of  load  point. 
ZB(K,1,N)  = z-posltion  of  load  point. 

S(K,I,N)  = Area  associated  with  load  point. 

31 

4P12.1 

Loading  information: 

SI1(K,I,N)  = s 
SI2(K,I,N)  = 

SI3(K,I,N)  = s:: 

SI4(K,I,N)  = 

(See  Figures  4 and  8 for  definition  of  s. 

Data  for  1=5  and  6 are  not  required  because 
diffraction  loading  is  not  used  on  the  top 
and  bottom  surfaces.  Therefore,  blank  cards 
should  be  used.) 

Repeat  groups  30  and  31  for  K=l,  NPS{I,N) 
Repeat  groups  29,  30,  and  31  for  1=1,  3, 

4 , 5 , and  6 . * 

Repeat  groups  29,  30,  and  31  for  N=l,  NBOX 


NBOX 
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TABLE  12  (CONT'D) 


GROUP 


32 


33 


NOTE 


INPUT  DATA 


FORMAT  INPUT  DATA 

*Data  for  1=2  is  omitted  because  of  symmetry 
with  1=1, 

2112  Code  for  controlling  iteration:  KDAM. 

0,  No  iteration 

1,  Iterate  on  overpressure  to  determine 
overturning  condition. 

Blast  model  code:  ICBLAST. 

1,  1 KT  sea  level  model 

2,  60  meters  height  of  burst  model 

6F12.1  Blast  data:  PSO,  ADI,  AD2,  DELTA,  W,  ALT. 

PSO  - Estimate  of  incident  shock 
overpressure,  psl 

ADI  - Azimuthal  angle  1,  degrees 
(-90<AD1£90) 

AD2  - Azimuthal  angle  2,  degrees 
(-90£AD2j<90) 

DELTA  - Increment  in  angle,  degrees 

W - Nuclear  weapon  yield,  KT 

ALT  - Altitude  of  vehicle  above 
sea  level,  ft. 

Program  will  compute  all  cases  from  ADI  to  AD2  every  DELTA 
degrees,  then  look  for  another  set  of  data  under  group  33 
(see  Figure  3).  A value  of  PSO  = 0.0  (or  a blank  card)  will 
terminate  group  33.  Additional  jobs  can  be  processed  by 
returning  to  GROUP  1.  The  entire  run  terminates  with  an  "END", 
beginning  in  column  1 of  GRODP  1. 
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If  a bogie  configuration  is  used,  stops  on  the  bogie  pitch  motion 
must  be  specified.  Otherwise,  if  the  wheels  are  off  the  ground,  the 
bogie  pitch  motion  will  be  unlimited  since  the  bogie  is  completely  free 
to  pitch.  Stops  are  provided  by  placing  a spring  on  each  bogie  axle. 

The  spring  can  supply  zero  force,  but  the  last  deflection  specified  will 
act  as  a stop  (see  Group  20) . 

The  data  regulating  the  numerical  integration  are  contained  in 
Groups  25  and  26.  Early  in  the  response  the  program  uses  a relatively 
small  time  interval  of  0.15  msec  between  steps  to  capture  the  rapidly 
changing  diffraction  phase  of  the  blast  loading.  At  30  msec,  however, 
the  program  switches  to  the  primary  At,  as  read  in,  for  the  remainder  of 
the  response. 

Several  different  At's  may  have  to  be  tried  in  order  to  determine 
the  largest  At  which  still  permits  an  accurate  solution.  The  total 
computational  time  is  nearly  proportional  to  the  At  selected,  so  it  is 
important  to  optimize  the  selection.  The  At  should  be  halved  or  doubled, 
as  the  case  may  be,  to  determine  at  what  point  the  solution  becomes 
significantly  affected  by  the  choice  of  time  interval.  Once  a At  has 
been  selected  for  a vehicle,  it  should  remain  valid  for  other  blast 
levels  and  orientations. 

The  printout  frequency  pertains  to  the  primary  time  interval;  if 
zero,  all  time  history  output  is  suppressed.  The  stop  time  for  the 
response  should  be  large  enough  to  capture  peak  response.  For  an 
iteration  run  (Group  32) , the  response  will  automatically  terminate  when 
the  vehicle  reaches  a point  of  "no  return"  as  far  as  overturning  is 
concerned . 

The  input  data  for  the  aerodynamic  model  begins  with  Group  27.  The 
vehicle  is  broken  down  into  an  assemblage  of  rectangular  boxes.  Each  box 
has,  of  course,  six  surfaces  as  shown  in  Figure  14.  As  an  example,  a 
truck  carrying  a shelter  might  be  described  using  three  boxes,  one  for 
the  shelter,  one  for  the  truck  cab,  and  one  for  the  remainder  of  the 
truck  body.  A number  of  aerodynamic  load  points  may  be  defined  on  each 
surface  of  each  box.  A load  point  is  defined  by  its  location,  its  area, 
and  the  appropriate  values  of  s as  defined  by  Figures  4 and  8. 

In  Group  32  the  user  selects  whether  the  run  is  to  iterate  on 
overpressure  until  the  point  at  which  the  vehicle  barely  overturns  is 
reached.  Typically  the  program  will  require  3 or  4 iterations  to 
determine  the  critical  overpressure. 

The  blast  wave  characteristics  are  also  selected  in  Group  32  by 
either  specifying  a waveform  corresponding  to  a free-air,  sea  level 
1/3 

burst,  or  a 60  W meters  height  of  burst  model.  The  characteristics  of 
each  are  contained  within  the  program. 
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FIGURE  14.  DEFINITION  OF  SURFACE  CODES  ON  AERODYNAMIC  BOX 
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In  Group  33  key  blast  data  are  specified.  An  azimuthal  angle  of  0 
degrees  corresponds  to  a (left)  side-on  exposure;  + 90  a head-on 
exposure.  A series  of  angles  can  be  easily  specified  by  making  use  of 
the  automatic  increment  (DELTA).  In  this  case  a new  estimated  over- 
pressure is  calculated  based  on  the  results  of  the  previous  angle. 
Additionally,  the  program  processes  new  blast  data  on  subsequent  cards 
for  Group  33  until  a blank  card  is  reached. 

At  this  point  the  program  prints  out  a vulnerability  summary  (for 
an  iteration  run)  and  then  returns  to  Group  1,  ready  to  process  another 
data  deck. 

5.5  Output 

The  normal  program  output  consists  of  three  parts;  preliminary 
information,  time-history  output,  and  summary  information.  The  pre- 
liminary information  consists  of  printing  out  the  input  data  and  certain 
center  of  gravity  calculations. 

The  time  history  output  occurs  at  intervals  defined  by  the  analyst 
in  Group  26  of  Table  12.  The  output  consists  of  the  time,  the  gener- 
alized coordinate  displacements,  velocities,  and  accelerations,  the 
Euler  angles,  and  the  center  of  gravity  displacements  in  the  earth-fixed 
axis  system.  The  order  for  the  generalized  coordinates  is  as  defined 
in  Table  1.  Also  printed  is  the  "CG  DISTANCE."  This  parameter  has  to 
do  with  the  vehicle  overturning.  The  program  calculates  a footprint 
defined  by  the  projections  onto  a horizontal  plane  of  the  front  and  rear 
tire  positions.  The  minimum  distance  of  the  vehicle  center  of  gravity 
from  the  edge  of  this  footprint  is  printed  out.  If  the  center  of  gravity 
moves  outside  the  footprint,  the  vehicle  is  overturning. 

The  summary  information  includes  the  maximum  and  minimum  generalized 
coordinate  displacements,  velocities,  and  accelerations  and  the  corres- 
ponding times.  Maximum  and  minimum  spring  deflections  and  the  corres- 
ponding times  are  also  printed  out.  In  interpreting  these  data,  it 
must  be  noted  that  the  spring  numbers  do  not  correspond  to  the  spring 
number  in  the  input.  There  are  two  reasons  why  these  do  not  correspond. 
First,  only  left-side  springs  are  input,  so  two  springs  exist  for 
each  spring  in  the  input.  Thus,  in  the  summary  output,  odd-numbered 
springs  are  left-side  springs,  even-numbered  springs  are  right-side 
springs.  Secondly,  each  bogle  spring  ends  up  as  four  springs,  one 
on  each  side  of  each  axle  involved.  The  actual  spring  displacement 
is  really  the  average  of  the  two  displacements  on  the  same  side.  The 
"spring  displacements"  for  bogey  springs  should  thus  be  recognized 
as  really  being  the  axle  displacements  at  the  bogey  spring  attachment 
points . 
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In  addition  to  the  above  information,  the  program  also  indicates 
whether  the  vehicle  has  overturned,  and  the  time  at  which  it  either 
passed  the  point  of  no  return,  or  at  which  the  minimum  value  of  "CG 
Distance"  was  recorded  for  a stable  response.  For  an  unstable  response 
the  velocity  with  which  the  center  of  gravity  crossed  the  footprint 
boundary  is  also  printed. 

For  iteration  runs  there  is  one  additional  summary  printed  after 
all  orientations  and  yields  have  been  completed  for  a particular  vehicle. 

In  tabular  format  the  blast  parameters  corresponding  to  critical  response 
are  collected  for  each  case.  It  should  be  noted  that  when  iterating  on 
overpressure  the  program  always  makes  a final  estimate  of  overpressure 
after  the  last  response  run,  so  that  the  final  result  may  actually 
represent  a stable  or  an  unstable  response.  The  important  thing  is  that 
the  estimate  is  considered  close  enough  to  the  actual  critical  overpressure 
level  for  all  practical  applications. 

If  an  error  of  any  kind  is  detected  during  a run  the  program  will 
print  out  an  appropriate  message  and  indicate  the  subroutine  producing 
the  message.  If  possible  the  program  will  either  continue  with  the 
response  or  cycle  back  for  the  next  orientation  or  yield,  or  another 
data  deck.  An  input  error  will  force  termination  of  the  run. 

5 . 6 Example  Problem 

The  example  problem  deals  with  an  M35A2  truck  carrying  a retro- 
fitted S2B0  shelter.  This  configuration  was  tested  in  Operation  Dice 
Throw.  The  truck  is  shown  in  Figure  15.  The  two  rear  axles  are  connected 
in  a bogie  arrangement.  The  shelter  is  assumed  to  be  rigidly  connected 
to  the  truck  bed  and  there  are  two  racks  in  each  side  of  the  shelter. 

The  origin,  for  the  input  data  is  the  center  of  the  front  axle.  Physical 
data  on  the  truck  are  contained  in  Reference  9.  The  aerodynamic  model 
is  made  up  from  two  boxes,  one  representing  the  hood  and  the  other  the 
remainder  of  the  truck  plus  the  shelter. 

Table  13  contains  a listing  of  the  input  data.  It  is  annotated 
with  the  Group  number  and  other  information  to  assist  in  correlating  the 
data  with  the  description  of  the  input  data  in  Table  12. 

The  outputs  from  the  example  problem  run  are  illustrated  in  Tables 
14-16.  Table  14  contains  the  preliminary  information.  Table  15  presents 
excerpts  from  the  time-history  output,  and  Table  16  contains  the  summary 
information. 


9 


Radkowski,  Peter,  Letter  to  Noel  Ethridge,  BRL,  dated  24  June,  1976. 
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FIGURE  15,  M35A2 
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TABLE  13 

SAMPLE  PROBLEM  INPUT  DATA 
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Sample  Data 


Group 

No. 


M354^  ftlTH 

RETROF  I T 

Shelter  rigidut 

attached. 

RACKS  SPRliNG 

-MUUN  TED, 

(1) 

0 

(2) 

0 

0 

2 

3 

1 

0 (3) 

1 

2 

2 

(4) 

2 

1 

1 

(5) 

1 1 

11 

(6) 

2a. 14 

0.0 

31 .89 

-85.77 

(7) 

i.bb 

0.0 

0.0 

0.0 

4.23 

0.0 

0.0 

-130.0 

4.23 

0.0 

0.0 

-178.0 

1.20 

29.01 

74.51 

-12b. 9b 

1.20 

29.01 

74.51 

-173.04 

-ISbOO. 

(8) 

112400. 

97400. 

40900. 

(9) 

0.0 

2530. 

2530. 

0.0 

7 730  . 

7730. 

0.0 

7730. 

7 730  , 

547.0 

bb.b 

405.0 

547.0 

bb.b 

405.0 

15.4 

10.6 

0.0 

15.4 

5.6 

0.0 

(10) 

15.4 

-1.4 

-3.24 

15.4 

11.19 

0 

1 

20.24 

0. 

-130. 

20.24 

5. 

-130. 

20.24 

0. 

-176. 

20.24 

5. 

-176. 

0. 

0. 

(11) 

33.674 

(12) 

0. 

-130. 

(11) 

29.25 

40.75 

(12) 

0. 

-17  8. 

(11) 

29.25 

40.75 

(12) 

2 

20.24 

(13) 

29.01 

41.87 

-120.73 

35.0 

41.67 

-120.73 

(16) 

29.01 

41.67 

-133.19 

35.0 

41.67 

-133.19 

29.01 

102.37 

-121.35 

35.0 

102.37 

-121.35 

29.01 

102.37 

-132.57 

35.0 

102.37 

-132.57 

34.47 

41,67 

-120.93 

34.47 

35.0 

-120.93 

23.55 

41.67 

-120.93 

23.55 

35,0 

-120.93 

34.47 

41.87 

-132.99 

34.47 

35.0 

-132,99 

23.55 

41.67 

-132,99 

23.55 

35.0 

-132.99 

22.32 

41,87 

-12b, 9b 

22.32 

41.67 

-120.0 

35.70 

41.87 

-12b. 9b 

35.70 

41.67 

-120.0 

37.51 

110.87 

-126.9b 

37.51 

110.67 

-120.0 

29.01 

41.07 

-Ifab.bl 

35.0 

41.67 

-lbb.61 

29.01 

41.87 

-179.27 

35.0 

41.87 

-179.27 

29.01 

102.37 

-lb7.4i 

35.0 

102.37 

-167.43 

29.01 

102.37 

-1 78.65 

35.0 

102.37 

-178.65 

34.47 

41.67 

-147.01 

34.47 

35.0 

-147.01 

23.55 

41.67 

-147.01 

23.55 

35.0 

-147.01 

34.47 

41.87 

-179.07 

34.47 

35.0 

-179.07 
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Group 

No. 


25, “is 

01.67 

-17'). 07 

23.55 

35,0 

-179.07 

22.52 

01.07 

-173,04 

22.32 

41.87 

-180.0 

35.70 

iil  ,87 

-173.04 

35.70 

41.8/ 

-180.0 

37.51 

110.87 

-173.04 

37.51 

110.87 

-IbO.O 

-lOOOO. 

3 

5500. 

-5.0 

44. 

0.0 

0.0 

5.0 

-81  , 

lOOOO. 

-18320. 

- 

5 

'lOOOO. 

28180. 

*5,0 

175. 

0.0 

0.0 

5.0 

-325. 

10000. 

-73300. 

-100. 

C 

0. 

100. 

0, 

2 

-100. 

0.  ■ 

C 

100. 

0. 

-lOOOO, 

J 

13080. 

-5.0 

88. 

0.0 

0.0 

5.0 

-182. 

2 

10000. 

-38800. 

-lOOOO. 

101400. 

1 OOoO . 

-101400. 

-lOOOO. 

C 

101400. 

3 

10000. 

-101400. 

-10000, 

C 

50700, 

2 

50700. 

3 

1 uOUO. 

-50700. 

-10000. 

10000. 

-50700, 

-10000. 

C 

78050, 

3 

10000. 

-76050. 

-lOOOO. 

C 

7b050, 

3 

10000. 

-78050 , 

-10000. 

C 

78050 . 

3 

10000. 

-76050. 

-lOOOO. 

C 

78050. 

3 

10000. 

-76050. 

-10000. 

c 

101400. 

2 

101400. 

lOOOO. 

-101400. 

-10000. 

1 0000  . 

-101400. 

2 

-10000. 

101400. 

3 

10000. 

-101400. 

-10000. 

C 

101400. 

3 

luOOO. 

-101400. 

-10000. 

C 

:ioi4oo. 

^ • 

10000. 

-101400. 

-10000. 

c 

!i0700* 

3 

10000. 

-50700. 

-lOOOO. 

C 

3 

loooo. 

-50700. 

-10000. 

C 

76050. 

lUOOO. 

-78050. 
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lOOOO. 

2 

76050. 

10000. 

-76050, 

10  0 0 0. 

2 

76050. 

10000. 

-76050. 

lOOOO. 

2 

76050. 

10000. 

-76050. 

10000. 

2 

1 0 1 <»  0 0 . 

10000. 

-loiaoo 

10000. 

2 

101«00. 

1 0000. 

-101<400 

10000. 

2 

lOUOO. 

1 0000. 

-101<400 

.0 

6.2 

5.0 

3 

6200, 

0. 

0. 

100. 

2 

0.0 

100. 

0.0 

5. 

2 

0. 

100. 

0. 

5. 

2 

0. 

100. 

0. 

6.2 

3 

7130. 

0. 

0. 

0.5 

2 

5100. 

0.5 

-51u0. 

0.5 

2 

5100. 

0.5 

-5100. 

0.5 

2 

2550. 

0.5 

-2550. 

0.5 

2 

2550. 

0.5 

-2550. 

0.5 

2 

3825. 

0.5 

-3825. 

0.5 

2 

3825. 

0.5 

-3825. 

0.5 

2 

3825. 

0.5 

-3825. 

0.5 

2 

3825. 

0.5 

-3625. 

0.5 

2 

5100. 

0.5 

-5100. 

0.5 

2 

5100. 

0.5 

•5100. 

0.5 

2 

5100. 

0.5 

-5100. 

0.5 

2 

5100. 

0.5 

-5100. 

0.5 

2 

5100. 

0.5 

-5100. 

Group 

No. 


(19) 

(20) 

-100000, 


115000. 


86 


Group 

No. 

2 


-O.b 

2550. 

2 

0.5 

-2550. 

-0.5 

2550. 

2 

0.5 

-2550. 

•0.5 

3625. 

2 

0,5 

-3825. 

-0.5 

3825. 

2 

0.5 

-3025. 

-0.5 

3825. 

2 

0.5 

-3625. 

-0.5 

3825. 

2 

0.5 

-3825. 

-0.5 

5100. 

2 

0.5 

-5100, 

-0.5 

5100. 

2 

0.5 

-SlOO. 

-0.5 

5100. 

3 

0.5 

-5100. 

(21) 

-8,5 

26900. 

3 

-0.125 

80. 

0. 

,0 

0.0 

(22) 

0.0 

0.0 

0.125 

32.5 

10.0 

12700. 

19.1 

0.6 

386, 

(23) 

0. 

0. 

1000  . 

(24) 

1.2 

0.0005 

(25) 

1 00 

(26) 

2 

(2  7) 

1 

1 

(28) 

9 

(29) 

30.5 

16.25 

8.5 

1657.5 

1 K=1 

> 

(30) 

■25.5 

08.7  5 

7 6.5 

16.25 

(31) 

30.5 

01.25 

8.5 

892.5 

(30) 

25.5. 

8.75 

76.5 

91.25 

J K=2 

1=1, 

N=1 

(31) 

30.5 

1,6.25  , 

-92.5 

1657.5 

J K=3 

j 

[ 

(30) 

7 6.5 

98.7  5 

25,5 

16,25 

(31) 

30.5 

01.25 

-92.5 

892.5 

{ K=4 

1 

(30) 

76.5 

8.75 

25.5 

91.25 

} 

(31) 

2 

(29) 

-15,26 

25. 

3«.0 

1525. 

} K=1 

(30) 

15.25 

25. 

95.75 

25. 

j rv  X 

i 

1=3, 

N=1 

(31) 

15.25 

25. 

39.0 

1525. 

1 K=2 

1 

(30) 

25, 

15,25 

25. 

) 

(31) 

0 

1=4, 

N=1 

(29) 

1 

(29) 

0. 

50  , 

-17. 

6222. 

(K=l 

( 

1=5. 

N=1 

(30) 

0. 

0. 

C . 

0. 

( 

(31) 

1 

/ 

I 

(29) 

0. 

0. 

0. 

0. 

-17. 

0. 

6222. 

0 . 

} K=2 

1 

1 

1 

> 

1 

1=6, 

N=1 

(30) 

(31) 
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Group 

No. 


9 


44. 

19.42 

-103.5 

1902.6 

137,5 

51,74 

122.5 

19.4 

44. 

58.25 

-103.5 

1902,6 

137  .5 

25.4 

122.5 

56.25 

44. 

95.08 

•103.5 

1604.6 

24.5 

18.42 

122.5 

134.9 

44. 

19.42 

-152.5 

1902,8 

lab.s 

86.4 

73.5 

19.4 

44. 

56.25 

-152.5 

1902.6 

186.5 

58,25 

73.5 

58.25 

44. 

95.08 

-152.5 

1604.8 

73.5 

16.42 

73.5 

134.9 

44, 

19,42 

-201.5 

1902.6 

235,5 

97.1 

24.5 

1 9.4 

44. 

58.25 

-201.5 

1902.8 

235.5 

58,25 

24.5 

56.25 

44. 

95.08 

-201.5 

1604.6 

123.5 

16.42 

/I 

24.5 

134.9 

-22. 

90. 

-79. 

2176. 

iZ, 

24.75 

66. 

90. 

22. 

90. 

-79. 

2178. 

66. 

24.75 

22. 

90. 

-37.25 

25. 

-79. 

675. 

6.75 

74.5 

61.25 

25. 

37.25 

25. 

•79. 

675. 

81.25 

74.5 

6.75 

25. 

♦22, 

u 

29. 

-226. 

2563. 

22. 

65.4 

66  • 

29.1 

-22. 

29. 

-226. 

2563. 

66 . 

85.4 

22. 

29,1 

+ 22. 

86.37 

-226. 

2475. 

22. 

28.1 

6b, 

66.4 

-22. 

86.37 

-226. 

2475. 

66, 

28.1 

1 

114.5 

22. 

86.4 

0. 

-152.5 

12936. 

0. 

0. 

1 

0. 

0. 

0. 

0. 

-152.5 

1293b. 

0. 

0. 

0. 

0. 

0 

1 

6.0 

0. 

0. 

0. 

0. 

ENO 

1=3,  N=2 

1=4,  N=2 

1=5,  N=2 

1=6,  N=2 

4250. 


(29) 

(30) 

(31) 

(30) 

(31) 

(30) 

(31) 

(30) 

(31) 

(30) 

(31) 

(30) 

(31) 

(30) 

(31) 

(30) 

(31) 

(30) 

(31) 

(29) 

(30) 

(31) 

(30) 

(31) 

(30) 

(31) 

(30) 

(31) 

(29) 

(30) 

(31) 

(30) 

(31) 

(30) 

(31) 

(30) 

(31) 

(29) 

(30) 

(31) 

(29) 

(30) 

(31) 

(32) 

(33) 
(33) 
(1) 


88 


TABLE  14 

SAMPLE  PROBLEM  PRELIMINARY  OUTPUT 
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e^NEuiLlzeo  TRUCK  snELTEt.  vEHSlOi'i  f.O 
JOB  1 


»U^  10  = M35*^  rtlTM  RETROEiT  SHELTER  RIuIOLr  *TT*ChEO,  h»CKS  SPR  I .NG-HUUIi  TEO  . 


O 


vehicle  TVPE  - hhEELEO. 

shelter  RiaiOLT  mounted. 


NUMBER  OF  R»CKS  i E 

R»CK  number  1 M*s  11  SPRINGS. 

R*Ck  number  2 H»s  U SPRINGS. 


TRUCK  H*S  3 ««LES. 


AXLE 

TIftES 

sPi<iNGa 

2 

1 

a 

a 

i 

i 

3 

a 

i 

INDEX 

X 

Y 

z 

1 

*a4i«ouoE4oa 

0. 

-3ie>soooE4oa 

-.85770006402 

a 

, JbbOOOOE^-Ol 

Or 

f) « 

0. 

3 

•«a3000ut40i 

0. 

n • 

-*1300000£403 

H 

•4230000E40I 

0, 

Or 

-.17800006403 

5 

, laoouooE^oi 

.a<ioioooE*oa 

.74510006402 

-.12b9b00£403 

6 

. laoooooE^oi 

.a<»oioooE^oa 

,7451000E40a 

1 7304006403 

SrSTEM  ca  M4SS  S .a5O66ao£»0E  » = 0.  T = .E?7ET3BE»ua  Z = -.RSaSSS/EtOE 


INDEX 

s 

1 

V6CT0R 

FkDM 

CG 

TO 

MASS 

= 

0, 

,39baa2E40l 

.1 26 S5bL4 02 

INDEX 

s 

a 

YEC  TOh 

FKUM 

CG 

TO 

MASS 

= 

0, 

-,a772?oE402 

,9au55bt4i)2 

INDEX 

s 

3 

vectdh 

FmO*^ 

CG 

TO 

“ASS 

z 

0, 

-,2772766402 

-.3154446402 

INDEX 

s 

4 

VECTDf* 

FW0(4 

CG 

TO 

MASS 

z 

0. 

-.2772766402 

-.7954446402 

INDEX 

s 

5 

VEC  ruw 

FROM 

CG 

TO 

MASS 

= 

,>9OIO0E4u2 

,4678246402 

-.285044fc^02 

INDEX 

= 

b 

VECTON 

Fi<UM 

CG 

TO 

MASS 

5 

.;i90100t40a 

.a6/82tt£-*02 

-.745«4«t4(/a 

inertia  data 


»I»Z  * -.JRb00E*05 


INERTIA  All 

.llEROE^Ob 

0. 

0. 

0. 

.5U700E+03 
. 5«?i)«E»«  J 


XI2 

9f «UOE»OS 
E5300E*Oil 
773OOE»0u 
77300e*0a 
66b JOE  *0  2 
66600E*02 


AI3 

ROROjEtOS 
25J00E«0<i 
77  300E*0« 
77300E*J« 
<I0S00E»U3 
ao500E*u3 


SPRING  ATTACHMENT  POINTS 

1 .is«oje*o2 

•10800E4O2 

0 , 

2 

• 1 54oot4oa 

-.140006402 

• .32400E  402 

i 

•202406402 

0. 

-,130006403 

4 

.202406402 

0. 

178006403 

time 

.338/  46402 

0. 

<1. 

riht-(CG) 

.J5874t»02 

-.277286402 

,984566402 

U*tt 

,29250t^o2 

0. 

-.  1 3000641)  5 

TiMt-cCG) 

.292506-02 

-.  2 7 7286402 

31  544E41)2 

.15«ua£»02 

.1S‘I0Oe*02 

.202roE*02 

.202J0E*a2 


.560«OE*01 
,1 1 1R0E*02 
.50000E+J1 
.5UOOOE»OI 


0. 

-.10760£*02 
-. 130UWE*03 
-.179006*03 


1 1Kk 

,a07b0E*02 

0. 

TlHt-(Ct) 

.ao7!)0E*l>2 

-.27  726b*02 

Tint 

•EvabOE-OE 

0, 

Tiht-(ca) 

.292b0E»02 

•.2772bt^02 

TIKE 

.«07b0E*02 

0. 

TIkE»(Cb] 

.«0750£*02 

-,2772at402 

0O&1E  bKRlNG 

ATTach'^EM  points 

A *LE  * 

b 

2 .202U00E«02 

KtC**  SKHING 

atiachmeni  pdims 

SKnJNG 

b 

.29010Et02 

.UTB70E402 

7 

.29ttJ0E*02 

,01670^402 

a 

.29010£*02 

• 1C>237C403 

.29U10E*02 

• 1 0237E403 

10 

.3««70£*02 

.41670E402 

n 

.23bb0E»02 

,*»1670£402 

l^ 

.3a“70E*02 

,til670E402 

15 

.23S5()E»02 

•«ie70£402 

lu 

.22320E»«2 

.aie70E402 

15 

.35700E«02 

,41670E«02 

16 

, 37bl0E«02 

.I1067fc403 

17 

.2901 0E*02 

,«lbT0E402 

16 

.2901I7E«U2 

.«) 870t402 

1^ 

.2901 0E»02 

,10237E403 

fO 

.2901  OE-'OE 

. I0237E403 

ai 

.3<>a7uE»02 

.<*lb70fc402 

.23bb0t*02 

.<I1670£402 

^5 

,349?  ot»02 

.<Jlb70c402 

?*i 

•23bb0E*02 

,flle7ti£4U2 

?5 

.22320E«C2 

,iJie70t402 

26 

.35700E*02 

,4ild70E402 

27 

.3751 0t»02 

, 1 1087t403 

UATa 

spking 

1 

V 

F 

1 

-.1  00000E4CI5 

•65ftOOOE40ft 

2 

-.500000E401 

. ,<»ftOOOOE402 

5 

0 • 

0. 

ft 

.500000E401 

-.6)000DE4C2 

S 

.100000E405 

•,ld32Q0£405 

SPRING 

2 

V 

F 

6 

-.100000E405 

• 2b  1 bO  Ot4 1^5 

7 

-.bOOOOOE+Ol 

• 1 750CI0t4U3 

6 

0« 

o» 

9 

•SOOOOOE401 

••32b000e403 

10 

,1000llOE40S 

-•733000E405 

SPRING 

3 

F 

1 1 

•.10000UE403 

0* 

12 

« 100000E403 

0. 

SPRING 

ft. 

V 

F 

13 

-.100000E403 

0, 

. 1 iOOOt-*  u J 

,7‘ib<iat«oa 

. 1 7ecioE«tij 
. 7<»5««E*172 


,1207Ifc»0J  .JbOuuE+tfg 
.lJS19t»03  .3bOtlOE  + 02 
.12J35t«01  ,35000E»02 
.13257£»()J  .3b000E*(72 
.120<)3E«05  .3<i«70E*02 
.lEOSSE+OS  .23550E»02 
.13299t*03  .3«U70E»02 
.13299E+03  .235b0E*02 
.12696E»03  .2232bE»02 
.12696E  + 03  .3b7l70E*02 
.12f>96E«03  .37510E»02 
.lbb81E«03  ,3b0ll0E»G2 
,I  7927E»03  .35000E«1.2 
,lb7a3£ttj  .3&00UE*02 
.J7B(,5E«03  .35006E702 
.I«701t*03  .3ii«70£*u2 
.la701E»03  .23b50L*02 
. 1 7 907E«03  .3a«7(iE»g2 
,17<»07E«03  .23bbOE»li2 
.1730«E«03  .22320E»02 
. 1 7 30«E*<i3  ,3S7«liE«02 
. 1 7 30«E*03  .37bJ»E*Ci2 


FOK  t«Oh-LlN£*K  DAMPING 


.aiB79t*02  -.I2D73E*03 
.al870E»02  •.13319E»03 
,l(i237k*U3  -.1213bE4’03 
.I0237E*03  •.132S7EA03 
.3500UE*02  -.12093E*03 
.3b000E*a2  -.12U93EF03 
.35>0(J0£»02  -.I3299EA03 
.3500(tE»02  -.13299£*03 
.U1870£*l>2  -.120o0£«03 
.aie70t*02  -.I2000E*03 
.no87£*(i3  -.12()OOE*03 
.»1B70E*02  -.IbotttE^OS 
.«lb7«E*02  -.17927£»03 
.10237E*05  ».lb7«3£»03 
.1D237E*03  -.I7eb5£')'03 
,3!)0UOt*02  -,l«7Ol£*03 
,3ij&Dut*02  -.J«701E*03 
.350Dut*b2  -.J7907E*03 
.35tiOOE*02  -.  1 7967E  + 03 
,aiB7t)E*b2  -.lb000E»03 
.«1B70E«02  -.lbODO£'»D3 
.Uue7E»03  -.1cj0D0£*03 


SP»<1NG  b 


5PKING  7 


SPRING  e 


SPRING  9 


SPHlNG  10 


spring  11 


SPRING  12 


SPRING  13 


spring  14 


SPRING  15 


SPRING  lb 


SPRING  17 


SPRING  16 


SPRING  19 


1 M 

. 1 00000i«ii5 

li  • 

V 

f- 

lb 

-,l00uti0t»05 

. 1 3Gb0l)b«05 

U 

-.50ull00t^01 

4 66DOOOE-»U2 

17 

0. 

0* 

16 

,500000b«0l 

-4lb2000E4-03 

19 

.10CiOOO£«^05 

-.3bbO00E*05 

V 

F 

80 

-,l0O000t*05 

.10l400E*Ob 

?1 

,l00000t*05 

* 4 1 0 1 bOOE^Ob 

V 

F 

22 

1 00oo0£*05 

4 lOUOOE^Ob 

23 

• 100000^<»05 

•4l0l400t<»0b 

V 

F 

24 

-*100000£*05 

.507O00E«0S 

25 

•100900€«05 

V 

F 

2b 

IOOOOOE405 

.507000t405 

27 

» I0ti000t«05 

•.507000k.*05 

V 

F 

26 

•^,100000E<»05 

•7b0b00E405 

29 

»100iibOE^05 

•'♦7b0500t405 

30 

V 

-.lOOOOOt^OS 

F 

.7b0500t*05 

31 

. lOOOOOtt^OS 

■^.760b00E»O5 

y 

F 

32 

1 OOOOOE^OS 

4 7b0500fc‘>05 

33 

,l00u00£t05 

-.7b0500E^U5 

V 

F 

34 

*•  lOOOOOE^OS 

.7b0500E^05 

35 

,100000E^05 

-.7b0b00E*05 

y 

F 

3b 

-.lOOOOOE^OS 

4 lOMOOE^Ob 

37 

•lOOOOOE^OS 

lOl4CiOE^Ob 

V 

F 

36 

-.IOOOOOE«05 

4 1 0 laooE^Ob 

39 

• 100000E'*^05 

*•  101400E«Ob 

V 

F 

40 

-•IOOOOOE^05 

•lOiaOOE^Ob 

41 

. lOOOOOE^OS 

••10 1 aoOt^Vb 

V 

f 

42 

-•100000E«05 

•10l400Etbb 

43 

,l00000t^05 

-4l01400E«0b 

V 

F 

tt« 

-*100000E^05 

4 1 0 l^OOE^Ob 

45 

•lOOOOOE^OS 

-•10l400t*06 

y 

F 

4b 

-.100000E^05 

•507000t^05 

VO 

Va) 


47 

« lOOOOOC^OS 

**S0700llE>05 

SPRING  20 

V 

F 

48 

•g  100000£t05 

•507000E^05 

49 

,!00U00E^05 

*g507000£«'05 

SPKInG  iX 

V 

F 

50 

10U0O0E4OS 

•7b0500£^05 

51 

.1UOOOOE*05 

••7bOSOOe»05 

T otr  ^ 

” • •'*'*  bC 

T 

F 

52 

•.loooooe^os 

.7b050tit*0S 

S3 

• 100000E4-05 

•.7b0500t>05 

SPRING  2] 

V 

F 

S4 

-•lOOOQOE^OS 

• 7b0500E<*-05 

55 

•loooooe^os 

-.TbOSOOttOS 

SPRING  24 

F 

56 

««ioooooe*o5 

.Tbosooe^us 

57 

.loooooe^-os 

-•7bOSOO£^05 

spring  25 

V 

F 

58 

-.lOOOOOE^OS 

p lOMOoe^Ob 

59 

»IOQQOQE«05 

-•I0\400e^0b 

SPRING  2G 

V 

F 

bO 

-.lOOuCOEfOS 

« 101400E>06 

bt 

.lOOOOOE^OS 

lOMOOe-^Ob 

SPRING  27 

F 

b2 

-.loooooe^os 

.10t400EtOb 

bJ 

• ioooooe«-o5 

-,l0l400£*0b 

TIH£  OAMPIMto  COEFFICiENfS 
normal  .5Og000E»01 

TAmgENTIAL  .5(»0000£*0I 


SPRIMG  I 

I 

1 

s 

SPRING  i 

1 

2 

SPRING  S 

1 

2 

SPRING  4 

1 

2 

spring  <3 

t 

2 

i 


OAfA  for  NON'LINEAR  springs. 


1 

F(A) 

.b2000E«0l 

.62000£*04 

0. 

>i000QE*Q3 

lOOOOEtOb 

X 

F(H 

kOOOOE^Oi 

0. 

lOOOOE^OS 

0. 

X 

F(«) 

SOOOOE^Ol 

0. 

lOOOOE^uS 

0. 

X 

F(XJ 

5ooooe«oi 

0. 

looooe^os 

a. 

X 

FIX) 

b200UE4>Ot 

. 7 1 iOU£«04 

0. 

10000b ♦Oi 

•.ItSOOE^Ob 

1 

F(«) 

SPRING 


6 


1 

-•SOQOOE^OO 

.;iOOOE«Oa 

a 

•SOOOOE^OO 

-.510O0E*v<i 

SP'^ING 

; 

t 

f 1*) 

i 

-.SOOOOE^OO 

. 5 lOOOE »0« 

a 

.5yOOOE+00 

-,SlOOOE»Oa 

sPwiNS 

a 

K 

E tX) 

1 

-.SOOOOE-^OO 

.^S500E♦0« 

a 

•SOOOOE^OO 

-.25500E*04 

SPPIWG 

9 

1 

F (F) 

1 

'.50000E+00 

.2bbOOE*Oll 

a 

.50000£t00 

-.25500E*0<I 

3PNING 

10 

X 

F UJ 

\ 

-.SOOOOE^OO 

. 38250E*0il 

a 

*50UOOE+00 

■'.36250E*Ua 

3PH ING 

11 

X 

F (X) 

i 

-•3ooooe+oo 

. 3«250E»O« 

a 

,50000E*00 

-.382b0E»0« 

spring 

\a 

X 

F (X) 

I 

-•sooooe^oo 

.3«25d£»0a 

a 

. 5ooooe*oo 

-.io2bOE»ua 

SPHl.'+G 

1 3 

X 

F (X) 

i 

- .bOuOOt^OO 

. 3tt250E»0« 

a 

,50000E*00 

-.3a2b0E*0a 

SPK  tNG 

19 

X 

F [X) 

i 

“.SOOOOE^OO 

,3  tOOUE*<i4 

a 

,b0l>00£*00 

-.5ltfU0E»0« 

SPt^ISG 

15 

X 

F (X) 

i 

-,50000E^00 

,SIOOOE*OU 

a 

,59Q00£^00 

•.3 100UE«04 

SPRING 

1 b 

X 

F IX) 

1 

-•50000t+00 

,3  lOOdEfOii 

,500UOE*00 

-.3 100flE*0« 

SPRING 

1 7 

t 

F (x; 

1 

-•SOOOOE^OO 

,5  1000E*I)« 

a 

• SOOOOE-^CiO 

-.51000E»1;4 

3PH1NG 

la 

X 

F (X) 

1 

-•50000£*00 

.SlOOOEfOa 

a 

, 50000£^00 

-,3lOOOE»Ou 

SPRING 

19 

X 

F (X) 

1 

-•50000E*00 

.2S300E»04 

a 

•50000E+00 

-.25500E»U4 

SPNtNG 

iQ 

X 

F (X) 

1 

-•iOOOOt^vO 

.25500£»U4 

2 

,50000£*00 

-.25500£*0a 

SPRING 

a\ 

X 

F (X) 

1 

-•50000£t-0iJ 

, 5823UE  *04 

2 

• 5o»j00£^0{I 

-.3S23bE*a4 

spring  22 


VD 

ui 


spring  23 


SPRING  2a 


spring  25 


SPRING  26 


SPRING  27 


SPRING  2S 


SPRING  29 


1 

X 

-,saooo£«oo 

FIX) 

.382%0£*0« 

2 

.^OOOOE^OQ 

•'.3»250E*04 

1 

X 

••^OOOOEtOO 

FU) 

.362S0E+04 

z 

.SOOOOE+OO 

-.38250E»0a 

1 

X 

•.50000E+00 

Fill 

.38230ErU« 

y 

« 5iipv0v£'PV«/ 

-•36250 

1 

X 

-,50o00£^00 

FIX) 

.SIOOQE+Oa 

2 

.59000E»00 

-•SLOOOCtOa 

I 

X 

-♦sooooe+oo 

F CX) 

.SlOOUb*U4 

i 

.SOOOQErOO 

-•SlOOOL^Ott 

1 

X 

-•aOOOOt+OO 

F(XJ 

,SI0COE«04 

2 

,50000£^00 

-.StOOOEtOS 

1 

X 

-.dSOOOEtOl 

FIX) 

.26900E4’U5 

2 

-.I2500E*00 

.80000E»02 

3 

0. 

0, 

1 

X 

F(X) 

0. 

2 

.12500£*00 

.32SuO£-»U2 

3 

.IOOOOE*02 

. 12700E»05 

RtGIuS  UP  ameEL  s 

gruuno  slcpss  are 


.19100E+02 
GSCl)  = 0. 


COEFPIClPvf  OP  sliding  friction  I 
SS(2)  = 0. 


.sooautNUU  GRPviTr  z .sssooEnuS 

ime  PosiriON  OF  i«E  slope  chfnge  is  ,ioougE»09 


PROGRPR  nlLL  RUN  UNTIL  .12000£t01  SECONDS  OF  RESPONSE  M»VE  SEEN  CONRUCEO. 
THE  TIME  1N1ERV*L  SEIrEEN  steps  = .5u000c,03  SECONDS. 


PRINT 

time 

MiSfORI  response 

EVERT  lOO  STEPsJ 

* SPECIXL 

tire  INTER**L  OF 

.15»00£-03 

S£COno3  is  used 

UNTIL  .SOOOOE 

-01  secQNos* 

NUMBER 

of 

XERODtnaMIC  BOX  C0NFIGURXT10N3 

= ? 

aox 

OESIGnXTION  code 

BOX 

NO, 

code 

1 

1 BOX  RIGIOL 

T xrrxcHfcD  TO 

venjcLt. 

i 

1 BOX  RIGIOL 

T IfTACHEO  TU 

VEHTrLE 

dOx 

,F4C£,GRI0  point,  1 

1 

xHEx 

Sll 

S12 

SIS 

SI4 

1 

1 

,3USaOOE>D2 

• tb2500E*-02 

• S^nOooE^O 1 

. 18S750EV04 

«2SSOOOE402 

.487500EV02 

. 7650a0Ev02 

.I82500E*u2 

1 

2 

, 305oOOE>u2 

«4t2%00&«02 

•S^nOOoe^OT 

.892500E*03 

• 2SbOOO£«>02 

.B7SOO«E'»Ol 

,78S0O0E*02 

.4J2500e*u2 

1 

3 

.31/5()UO£»02 

• Ib2b00e^02 

**<l;?«y006*0  2 

. 1657SDE*04 

,76S000£4-02 

.4B7500E*02 

.2S500i)E4U2 

.18250aE902 

1 

4 

. 305auDE*02 

• <I12500£^02 

-.4?«i0y0£»02 

. 89250  9E*03 

• 7bSOOO£^(>2 

.875000E*01 

.2S5000E+02 

.41250UE4U2 

3 

1 

152500£»02 

• 250000£«>02 

.3an000t^02 

.152S0OEV04 

• IS2SOO£*02 

.25ouooE*aa 

.4575a*)E'r02 

.23U000E902 

3 

2 

. 152500E*D2 

.250000EtO2 

.34nOOOE*G2 

, 152500£»04 

• 4SIS00E4-02 

.250000EV02 

.15250UEVU2 

.25oaoaeNi)2 

S 

1 

0. 

.5000\>0£t02 

••l7n000E^O2 

.6222I}0E*'C4 

0, 

0. 

0. 

0. 

6 

1 

0,  0 

• 

1 7P000e^02 

,b2220ii£*04 

0. 

0. 

0. 

0. 

2 

1 

1 

. naOObOEtilE 

• 1 9420  0£  *^02 

t fttSOOE^Oi 

.i9a2aoE<’iJ4 

« 1 iTSGOEtOi 

.51  74ai)EvD2 

.12250UE443 

.1940t>«t»«2 

2 

\ 

2 

,a»0iJOUt»02 

• 5d2‘30  0E«02 

•• J n «500E»0  3 

. I902'1UE»04 

. |37500t^03 

.2S4uUUevU2 

. 122SOOE4a3 

.5825<)0E*u2 

2 

1 

3 

.4i>0uaUE«42 

• 950aOOE«-02 

• • 1 1 tSOOt^O J 

, 180484E*04 

• 2«iSC00£t02 

. la42U0E*a2 

,l2250ge94S 

.l349v)0E*93 

2 

\ 

4 

.4«Ooi)OEh)2 

,194200E»02 

JspSOoE^Oi 

. 19028  l)E»  1)4 

« 1 Sb^OuE^Oi 

.S«4UVUt«02 

. 73sua0£*02 

. 19440UE*02 

a> 


$ 

i 

5 

.44oaoaE«o2 

i 

b 

.4aOO00E»o^ 

i 

7 

,a40000E»OE 

1 

6 

.4«oouo£»oa 

i 

9 

.44osooe*ij? 

3 

1 

-.220000t»u2 

3 

2 

,a200006«02 

3 

3 

-.372500E*02 

$ 

3 

4 

. 372500E»02 

i 

<t 

,2200oat+(;2 

i 

u 

2 

-,220000E«02 

i 

tt 

3 

.220000E»02 

i 

4 

4 

-.22OOCOE*02 

i 

5 

1 

e 

b 

1 

0. 

STA^r 

TftiM 

ciLCUL»rioi’(S 

VEhICLfc  MAS 

t3LAST  MOOEL  - I KT,  SL 
f^tSFQNSe  RUN  OnLX 

slast  data 

eSflMATEO  PSO,  PSI 

azimuthal  AfJGLE  It  OEG 

azimuthal  angle  OEG 
INCREf^ENi  IN  AnQLE,  !>EG 
tIELO,  KT 

altituoe,  pt 


,SSd500E4'0a 
,^50aQ0E^02 
. i94^oo£^oa 
, saasooE^o^ 
,950BO0E♦O^ 
.900000E*02 

.soogooE^oa 

,250000E^02 
*2500(}OE4.02 
.290CK>0£^0a 
,290000c»02 
•db37g0E+02 
,3bi700E*02 
. 1 J45(?0E^03 
0. 


-,I*;^50{>£»03 
- • 1 5p50I)E»o3 
*••20  1 50  0E»03 
5U0£»u3 
-,2fli500£»03 
7<?aO00£»02 
•.7qoG00E»02 
-,7Qn000E»02 
-.7qrig00t-*O2 
-,^5lOOO£^U3 
- , 2 5 0 0 0 £ ♦ 0 3 
-,2^L0fl0E»03 
-,2?fc00U£^v3 
• , J4^500e*-03 
155500£*03 


«bOOOOO£^Ct 

0« 

0. 

0. 

«dOOOOO£'^gO 

.a25000E*0a 


^’AblENr  C0J'40ni0r'<S 

PHtSSUHE,  PBI  s ,i2S753E'*-02 

SP££0  OF  SOUNOt  Fr/SEC  = .llG003E^Ott 


, l90280E-»0tt 
,l604aoE^O« 
. 1902&OE^O« 
, l902aoE^04 

.laoasoe^oa 

.2U800E’*-0« 

.217800£’*0a 

,b75000d*03 

,b75000t+03 

.256300£*04 

.25b30Q£»04 

.247S0Ot*04 

,247500t»0tt 

, J293bU£’*05 
,l293b0£^05 


, I8b500£«03 
.735yO0£^02 
,235SO0Et03 
.23550QE*03 
.l2250Qe*03 
• 220000E«-02 
,bt>0000£<*’02 
,b750bbE*0l 
•B12SOQ£«02 
.220000E«U2 
•bbOOOOE^oa 
,220UogE+02 
.hbOOOOE-t-oa 
0« 

U . 


• Sb2500E-»02 
, 164200£^02 
,97  1000£+1)2 
, SbEbUuE-^Oa 
« lda200£'»>02 
•24750QE^02 
.2475i}0£»02 
♦/aSOOOE^Oa 
.7450g0£«02 
,b5‘*000£t*02 
.B5«i0g0£^02 
-201OOO£*O2 
»2b  t 00U£^02 
0* 

0 . 


«735000£'»02 
. 735u00£»02 
.2450UO£*-02 
.24SUo0E«-02 
♦2«5000tru2 

• Ob0  00o£i>02 

.220gUUE<«-02 

•dl25U0E^O2 

,b75U00£4-Ul 

«bbOUOOE*02 

.22000gE'*.02 

•bbOuO0E^O2 

• 22uOgo£i>Cid 

0. 

0. 


• 5d2500E't-02 

• I ju9UQe^03 
• 194000£^02 
•5a2500E»02 
.ii49(70£  + 0J 

•9oyogo£^u2 

,90Q000E*-02 

.250g00£*02 

•25000gt*02 

•29l000£*g2 

.29iOOOe^U2 

.8b400U£«02 

•Ob4g00£^02 

0. 

0* 


TABLE  15 

SAMPLE  PROBLEM  TIME-HISTORY  OUTPUT  EXCERPTS 


97 


JOS  J C*S£  2 rHI»L  1 

•ZIHUTHAt  tNGLEr  OCG  • 0. 

PEAH  OVEt^PiiESSuRe,  P3I  = .6nnOOI)E*Ol 

P£*»^  dynamic  PkESSJME,  PSI  = .R^rlTUY'OO 

KAN6E,  METERS  s .3sui53£»0i 

Overpressure  impulse,  psi-sec  = .strtiee+oo 

UTNAMlc  pressure  impulse,  psi-sec  = .fcn<>171E-0l 

SEGIN  TIME  MISrORY  CalCULAIIUNS. 


TIME  s 0,  CG  distance  : .37S5ua£*0E 

OISPLACEMCNr  : 

0.  0.  -.37R2£*0I  -.ESi,7c^-OE  0. 

0.  ,iu<»3E»0l  -.EaR3E-IE  -.a  763E-ia  -.ISl<i£-01 

-.1651E-01  -.1371E-OJ  -.alSa£-03  -,lR87f.02  .aa97E-l(j 

-.IRTRE-IS  .SaOSE-lR  -.IbSlE-Ol  -.1371E-03  .£l8BE-03 

VELOCITY  = 

0.  0.  0.  0.  0. 

0.  0.  0.  0.  0. 

0.  0.  0.  0,  0. 

0.  0.  0.  0.  0. 

acceleration  = 

.1S07£a03  -.7a5UE»Utt  -.£355E-11  -.950(iE.I3  .(i7l3e»0a 

-.lS07E»0i  .7705E-OU  -.1507E»03  .IblRe.OS  -.a371E*0« 

-,«371£»0«  .RUSE-ia  -.b7l3E*0£  .ISaSF^oa  -.  1507£«03 

-.  1507£*OJ  .iRERcaOS  ,«37lEA0a  -.luoSE-U  -.«>713E»02 

VO  ROLL  * 0.  , PITCH  = -.aR(,oR£-oa.  Y»,  r 0. 


AT 

TIME 

s 

. 7aooooE-o£ 

SPMING 

d7 

bOT  TUMS 

no  T » 

oeflec  t ion 

AT 

time 

: 

.7sooooE-oa 

6PKISG 

ud 

6QTTUM5 

ni.T, 

deflection 

AT 

time 

s 

.780oooE-oa 

SHwIMG 

tt<) 

5u  T T Lims 

-'ll  T , 

deflection 

at 

time 

s 

.7R5000E-OE 

49 

oGT  TuN6 

ri  u f » 

deflect  ion 

AT 

time 

a 

.855oooe-oa 

SPRING 

15 

dOTTOMS 

rioT  t 

deflection 

AT 

T IME 

5 

.855000E-02 

GPNING 

16 

buTTOMS 

ni.  T , 

deflection 

AT 

T IME 

5 

.85SoooE-oa 

SPRING 

37 

bOT  TOMS 

OnT « 

deflection 

AT 

time 

s 

,s5SoooE-oa 

$PRING 

36 

BOTTOMS 

rjn  T , 

deflection 

AT 

T IME 

2 

,870000£-02 

SPRING 

16 

dOTTOMs 

» 

deflection 

AT 

T IME 

s 

.870000E-02 

SPRING 

36 

BOTTOMS 

nij  T , 

deflection 

AT 

T IME 

s 

.I06000E-01 

SPRING 

^4 

aOTTOMS 

OU  T( 

deflection 

AT 

time 

= 

.llb500E-0l 

SPRING 

47 

aOTTUMS 

OUT# 

deflection 

TIME  a 

.50ooe-oi 

CG 

, distance  a 

.3b03b8EA02 

OISPLACtMENT  s 


.3728E-01 

•.2i43e*0l 

-.3757£*01 

• - i4S9ir-oi 

,93b6£-02 

-.30ib£-0l 

.3457e*01 

-.a737E-oa 

• lt)9bP«.0D 

-.2d57E-iJ  1 

-.«78R£-ai 

“,76S4t*03 

-. IbbUE-oa 

•,^399e-0l 

-,2b9oe-02 

-.aRObE-oa 

, t i + 

-.8«14£-0a 

5790P.0i 

. 199^£-02 

I/ELOCITT  5 

.RoaafAOO 

•#5Ui£*05 

.asRiEAOi 

, U797E-01 

,1410£«00 

-.b«60EA0o 

••aSQSt+Ol 

.531 1E*00 

-.1 lasA.oa 

,S774£«01 

. 1 OlbEAOa 

.7945£-01 

-.asasEAOO 

.B013E-01 

♦S047E^00 

.8a3SEAOO 

-.IS67£*05 

-.asiuEAOi 

-.aaRRa-0  1 

.2740t>00 

acceleration 

-.idSaEAQl 

• 3^^76«<i3 

.R5R7£*Oa 

. 1 bai  E.(j  1 

-.S273£*0 1 

.at ipEaoi 

.7744tA0a 

-.a«i3».o» 

. lb6lE*(>3 

.weibEtOS 

« 1 700i*b^ 

.aRMREAoa 

-.£530?. 03 

.7fr77£*02 

-.77R8E-01 

0. 

.aaaaE.oi 

Or 

•335lE^0l 

-. 7i«7E-Ob 

-. S93RE-0« 

-,1676E-Ib 

-.30b9e-la 

,a7b8£-l« 
-.  ns7£-oa 

-,1514E-01 

- . 7 lM7E-0b 

,ab79e-o5 

-•5939e-04 

0, 

0* 

0. 

0. 

u. 

0« 

0. 

0. 

D. 

0. 

0. 

0. 

0. 

0. 

0. 

.25«l£-t 1 

I5u7£i-y3 

-.laabE-io 

-.1507E.03 

-,77l)bfc-04 

.ia9a£-ii 

-.b713£^oa 

. 1 9M8E.0U 

-.1507£.0i 

* I9a9£»05 

. lhl9E»05 

.UJ71E-O04 

.I87at-ll 

-,b713E.oa 

• . 194dE^y4 

-. l9u8E.0a 

X 2 0. 

, Y 

s -.3791 7E^01»  Z s 

7a357£-01 

-.507£I1Ea00 
.SO laO7£AO0 
.SUmTSOEaOO 
.SlOibREAOO 

-.Svaao J£»00 
-,s0/«b0£*00 
.S0i5S0E*00 
.5073Sa£*00 
-.51 laaaEAOO 
.511R32£aOO 
-.S(j0«15£»00 
.501 ISSEaOO 


.73i,5E-01 
.a037E-Oi 
. 1 0 78E.0U 

-.Rosse-oi 

-.iajbt-oi 

.aaabb-oa 

,9«70£-0a 

.a‘*91£.Ul 

.baulE-Ul 

-,i57ae-03 

-.51 IbE-Ol 
•.195bE-0d 
.1694E-02 

.iaauE.oi 
. lasME.uo 
-.390bE-Ol 

,497«£t01 

. lasae.flo 
-, loavE.oa 
.laaiE.oa 

-,?a75£.00 

.7aaaE.oo 

-.b75S£.0l 

.1373E.UI 

-.ROlbE.Ol 

-.3a73£-01 

-.b502E*yO 

.9296e*00 

•21d7E«0V 

-.a574E.ul 

-.abbsE.oa 

.74a8£.0l 

.9i80E.ua 
. lauvE.ua 
- .a«  7 bE.Oa 

.<tas7E.01 
-. i7ai£.oa 
-,590«E.0i 

.ba75E.oa 
-. 1 «89£.um 
- . 1 7 a5E.ua 

.5622EtU] 

•.3077E-»g2 

•.2J84t*02 

-.labBE.Oi 

-.i555£.U4 

.58R8E.US 

TIMS  * 

8000E»UO 

CG  distance  2 

1930075*02 

oisplpcememt 

r 

.«o23e*oo 

•,16«9t»02 

.7lbOE»Ol 

,119992.01 

.31685-01 

, 99566*00 

-.26056*00 

.18636*01 

-.18956*00 

,99696*00 

-.9J12e-01 

.i  777en)i 

. 1375E-03 

95965-02 

-.36075-02 

,S56o£-09 

.13646-03 

.30706-02 

,l3l3t-03 

-.90516-02 

JS7SE-03 

.3904E-0« 

.1232E-03 

.29765.02 

.13665-03 

-.96296-02 

-.69225-02 

.55996-04 

-.19596-03 

.26986-02 

. 132«E-0i 

-.9162e'02 

-•«|a3E-02 

.63992.05 

-.66295-09 

. 19326-02 

VELOCITK  r 

.1725E»00 

. 1627E*0| 

-.l!67E»oa 

-.16935*00 

.1018E-0I 

.95386*01 

-.92665-01 

-.12776*01 

-.55626*00 

.12396*01 

-.3329e*00 

;93«set(ii 

•iassE-os 

-.12602-01 

-.#5165-01 

-.56706-04 

.92376-03 

-.55516-03 

,51286-03 

-.91096-01 

'.6206E-03 

.333Me-03 

-.287SE-02 

,83635-09 

-.95966-02 

-.38556-01 

.17236-03 

-.19996-02 

,22326-01 

.4369E-03 

•.3674E-01 

-W^O’iE-Ol 

-.95672.03 

.17525-02- 

-.12606-01 

tCCELERikTION 

- 

-.J370E»01 

-.1172E*02 

-•1731£*03 

-.19215*01 

.23lie*00 

.29865*02 

.20045*01 

-.81#06*01 

,26296*01 

.21346*03 

-.30&OE*OJ 

,<I01»22»03 

•.1361E-0I 

.77635*00 

-.1962E*01 

, 1603E-00 

. 76945*00 

.73966*01 

79986902 

.11096*00 

-,3631E»0l 

.4026E-U1 

*3939£tOO 

.32732*01 

-.13625-01 

.77226*00 

-.17586*01 

,39275-01 

-.23136*00 

.18998*01 

',16632-01 

.ad'ioetoo 

-,«fa3^E♦0l 

.10075-01 

-.29665*00 

.269oE*01 

POLL  = .«0317E*00,  PITC" 

= .SaotiiE 

-Olf  t*>  s 

.298075-01 

f A 2 - . 

194465*02,  7 

= .327836*01,  2 2 

15907£*01 

riMfc  s ' .1 

gsooE'OO 

CG  OiSTiNCt  s 

1935395*02 

OISPLtCEMEur 

2 

.4092E*00 

•.1643et02 

.6367E*01 

.90432.01 

.3295£-0l 

.12386*01 

-.26316*00 

. 18196*01 

-.21366*00 

.69396*00 

*,  1 i«rE«oo 

.l«TTt-03 

-.10392*01 

66316-02 

,21126-09 

,63696-04 

.13098-02 

,15556-03 

-.11095-01 

-.6367E-02 

-.TAKiE-ga 

•.I3a«£'0« 

,60752-03 

.1979E-03 

-.10366-01 

-.1 006E-U1 

.39266-04 

-.10286-03 

.23686*02 

.iss'ie-os 

-.nOFE-Ol 

•.9788E-02 

-.55965-09 

. J99»£.09 

.10396-02 

VELOCJTr  s 

, IO«OE«00 

.97»6E»0g 

'.I9al£»02 

-.2095e*00 

,76095-02 

,98966*01 

-. 39486-01 

-.15816*00 

-.91106*00 

.7211E*01 

-.5263£»00 

.2<I4JE'02 

.1990E-03 

-.20625-01 

-.83766-01 

-.95016-03 

-.1085E-U3 

-.22976-01 

.99526-03 

-.97796-01 

Ua^E'OO 

-.10«9£.q2 

.2369E-03 

-.11665-01 

.17396-03 

-.18926-01 

-.7558E-01 

-.16706-03 

-.21536-03 

.19976-01 

.a306E-03 

'.4379E-01 

1302E'00 

-.13112.02 

.20726-02 

-.62956-02 

ACCElEP*TIOM 

2 

-.15S2£*01 

*.1292£«02 

1226E*03 

-.90352.00 

..3#59£*00 

-, 12306*02 

-.  840  76*00 

.95926*02 

.29106*01 

.94186*02 

•,2517E*01 

. 1 35e£'03 

.3177E-01 

-.99602*00 

-.1506£*0l 

.90936-01 

.39895*00 

.59806*01 

.62086-01 

-.21736*01 

•.2I3'>E*01 

-.3140£'02 

.371 JE-01 

. 16695*0 1 

.3361E-01 

-.11116*01 

-.34566*00 

.17196-01 

-.99926-01 

.29316*01 

.6212E-01 

-.2t81E»oi 

-.1728£*01 

.29682.09 

,1965£-01 

.18896*01 

90H.  • .«1012£*<1<1,  PITCH 

a .tt%303£ 

-01.  Tin  » 

.250165-01 

. » » -, 

|9062E*U2>  T 

3 .256836*01,  2 « 

179156*01 

• T UME  ■ .S9a9a0E«0O  spring  to  dorruna  nut,  OEPtECriOn  : -,Gd02d7E*ul 


TABLE  16 

SAMPLE  PROBLEM  SUMMARY  INFORMATION 


100 


101 


INFORK*TION 


01SFL*C£MeNTS 


OOF 

1 « « » »H1NIHUM. « 

1 

.bl^b3£4-00 

,d9bS0E-»00 

0. 

2 

0. 

0. 

l6683E4-0a 

.b77506»00 

3 

.7S6Sa£*ai 

«r3050£«00 

-.3791bE»Ol 

.195006-03 

« 

« f VD3UC.  V vu 

” • CTO  7 V fc - WC 

« 1 T jvm£=02 

5 

,39ei2£-01 

.so60aE«'00 

0. 

ft* 

b 

. ISTS/Etoi 

,isai)oe»oo 

*.780816-01 

.i950o6-oa 

7 

o« 

0. 

-.3aU3£v00 

.34900E'»-00 

9 

•2db96Et01 

« IdiOOEi-OO 

,Uaii|£»0l 

.335506-00 

9 

0. 

0. 

-.a77Tb£*00 

, 1 01 3SE-U1 

10 

.395a8E»0I 

.taoDOEFOt 

, aaaOSEaOO 

,79«50£-00 

11 

0. 

0, 

•*2bab0Et00 

• 23bSO£«0I) 

u 

.siaaoEtOi 

*a9a^oE«oo 

.10938E*00 

.114306-01 

IJ 

.3752b£-02 

.3JOOOC-OI 

-,»b9««£-0a 

.85500E-0a 

lb 

.37a63Et«0 

.•»J(l()l)£-03 

-.185aSE*00 

.373006-01 

IS 

•6S752£«01 

«23bSOE^OO 

-.11513E*00 

•lObSOE-Ol 

lb 

• 1 1494£«02 

.25750E+00 

-•20336E*02 

.aaaoo£-oi 

17 

.53a3ae-oa 

.siflooe-oi 

-.13«18£-01 

.15750E-01 

lb 

«b75bdE*01 

•47500£«01 

-.97ai«E-01 

.379006-01 

l'» 

• 29n>UfUl 

• •b.304Ut*Ud 

20 

«3d32i)£^00 

•dSSOOE-Oa 

••2S969E^OO 

.aobooE-o 1 

21 

,993b9E-0l 

,a38SO£»O0 

-.lt9b7E*00 

.108006-01 

a 

. 101596-02 

•asasoEFOO 

-.17a5aE-02 

.a7700E-00 

2i 

.laaaaE-oi 

,iiaoo£-oi 

-.7i3iaE-oa 

.29550e-01 

2b 

,63bblE>Ol 

•2ob50E^00 

-.  7 78i‘)E-01 

.405006-01 

£5 

.39aQ0£-oa 

,33l)()0£-Cl 

• •bb95«£*02 

.855006-03 

2b 

.3709REVU1J 

.■JaSOOE-Oa 

- . 1 80996 ♦00 

»27b00£*0l 

ii 

.79059E-01 

, I0350fc-01 

•.IbObOt^OO 

.303006-00 

29 

.i««7a£-oa 

.aaisoE-oi 

-.U398£-0a 

.365006-01 

.a39o8E-02 

.il000£-01 

-.119086-01 

.153006-01 

30 

,5I5S<(E-OI 

.a«7O0E-oi 

-.b»130£-01 

.440006-01 

31 

.5liOSE-oa 

.ii5ooe-oi 

-.531  Jae-oa 

.445006-01 

}2 

,3a990£^00 

.dTOOOE'Oa 

-.aa5b9e*oo 

.358006-01 

3i 

*«7577e-0l 

.asiooE^oo 

-* I5b70£>oa 

.303006-00 

3b 

.lojiRE-oa 

• U3ooe*oi 

-.ai949e-oa 

.378506-00 

35 

.ba#o<»£-o2 

.lOuiOE-rOl 

-.ioaai£-oi 

.141006-01 

3E 

.7oseae-oi 

,asaaoE-oi 

-.958816-01 

.43SOOE-01 

velocities 

OOF  T1*<£  MIMMUX TIME 


1 

.145b9£-01 

. 1 78006-00 

-,780306-00 

. 119906-01 

♦2 

,a7059E-03 

aaoooE-oi 

-,560706-03 

.350006-01 

3 

,41S90£-03 

,31800E-00 

-,337a0t-03 

.898006-00 

tt 

,3797bE-00 

,317506-00 

-,313336-00 

.869006-00 

S 

.33134E-00 

.305006-01 

-.153056-00 

.103106-01 

b 

.879366-01 

.317006-00 

-,550986-01 

.569006-00 

7 

,71954e-00 

.431506-00 

-,103666-01 

.305506-00 

a 

. 1638aE-03 

,389v0£-00 

-.340336-03 

.306006-00 

9 

.10191E-01 

,061506-00 

-.153056-01 

.103006-00 

10 

.518696-03 

,363006-00 

-,597336-03 

.338506-00 

11 

.138186-01 

,o370O6-00 

-,153116-01 

.101006-00 

12 

.484636-03 

,337006-00 

-, 487366-03 

.363506-00 

13 

. 175736-01 

,870006-03 

-.916416-00 

.340006-01 

lb 

,606196-03 

,630006-03 

-,510156-02 

.178506-01 

15 

,2 jbSOEtOO 

•.iei3bE«02 

.2a200E*ao 

lb 

«27601g*00 

.2O25aE>01 

♦.  Jbl J4E*00 

.2b250E4aO 

1? 

• 16bl7E«^0t 

.22050E-01 

•,4<lt>25E*0t 

,8S5aOE-02 

18 

. 13335E^02 

.37500e-01 

-.15858£*02 

.2b460E4aO 

1*1 

.2A0aug^01 

. 7<)000E-02 

-.1509aE*i)i 

.3b000E-01 

£0 

,bb^9e»£^02 

.bJUOOE-02 

-.bJ12IE*i>a 

.1S150E-01 

£1 

,31  <9oiE«^02 

. 2J«50E*00 

-,2b80BE+O2 

.2b«oa£tOO 

li 

.ilbOOt+OO 

1E*Q0 

.2b300E*00 

iS 

• uasoiE^O  1 

. 7S0aO£-O2 

19J7«E*oi 

.20100E-01 

• SibOSE-^Ol 

.23“50E»00 

ibbisEtaa 

.2b450E»00 

£5 

, Ibbb^E^O 1 

,27fl00e-02 

•.9032bE»ua 

.39000£-ai 

£(> 

.bi}b7^£t02 

.ojOOQE-OE 

- .5u«  J3E*a2 

.laaaoE-oi 

2 7. 

•20fabde*02 

. J1000£>00 

-.2a212£*a2 

.29300£*00 

2« 

.215S2E  + 0(J 

.IbbOOE-fll 

-,32832E«aa 

,2b250E*00 

2» 

,17002E*01 

.21750E-01 

-.«2iilbE«ai 

.assaoE-ea 

JO 

.10dnE402 

,2J«50E*fl(l 

1«151E*02 

.2ba5aE»aO 

31 

,243a4E«0l 

.79500E-02 

-,12b‘*0E*Ol 

. j7saaE-oi 

32 

• b705bEti)a 

,b5000E-02 

-.5827 1E*02 

. lb500E-ai 

33 

.27500£-f  02 

,23450E*00 

- . i«bo5E-a2 

.2<)2So£«ee 

3« 

.53359E^00 

.2a350E*OCi 

-.3722«E*ao 

.2a9aoe-ai 

55 

,2T>37SE*01 

,2l0ot)E-0l 

-.580«bE*01 

.7eDOOE-o2 

Jb 

, lai'iOE^OE 

,510UO£»01 

-.Ib02b£»e2 

.2buoaE*ae 

*CC£l£R*TI0%3 


OOF  , 

. . . . IMijM, 

1 

.15935£»03 

,9e00OE-0J 

-.IJ5S5E*02 

,4aOOOE-Ol 

,43201E*03 

,45500fc»0l 
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14 
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.2SSOOE>01 
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.855006-02 
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,23830E'»00 

-.11129E*00 
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APPENDIX  A 


GROSS-REFERENCE  LISTING  OF 
ALL  PROGRAM  VARIABLES 
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»«*4^*»**»*  SUPER  INDEX  ♦**♦**•♦** 


SyWBOL 

==-===-= — ROLTINES  IN  WHICH  T^ 
(AN  * FOLLOWS  ALL  ROUTINE  NAMES 

^E  SYMBOL 
IN  WHICH 

APPEARS  = 
THE  SYMBOL 

IS  USED.) 

II 

It 

It 

It 

It 

It 

A 

— 

AERO 

DIFFL 

ENGULF* 

HYTRUK 

INLOAO 

lambda* 

MATXIN* 

MOTION 

MULT» 

SETA* 

SOLVE* 

SUHTA8 

TIRES* 

TRUCK 

AA 

- 

SETA» 

ab 

- 

SETA» 

A9S 

- 

ENGULF* 

INTI* 

MATXIN* 

PITER* 

RELAX* 

SETA* 

SOLVE* 

TIRES* 

ACOS 

- 

AERO* 

AO 

• 

AERO 

TRUCK* 

DIFFL 

ENGULF 

HYTRUK 

INLOAO 

MOTION 

SETA* 

SUMTAB* 

ADAM 

- 

ADAMI* 

A0AM5* 

BOTTOM* 

EXTRNL* 

MOTION* 

REBOUN* 

TIRES* 

AO  AM  I 

- 

MOTION* 

AOAM5 

- 

MOTION* 

ADI 

• 

AERO 

TRUCK* 

DIFFL 

ENGULF 

HYTRUK 

INLOAO 

MOTION 

SETA 

SUMTAB 

AD2 

AERO 

TRUCK* 

DIFFL 

ENGULF 

HYTRUK 

INL  CAO 

MOTION 

SETA 

SUMTAB 

AERO 

- 

EXTRNL* 

TRUCK* 

al 

• 

8LDATA 

TRUCK 

AERO* 

DIFFL 

ENG  ULF 

INLOAO 

MOTION 

SETA* 

TIRES* 

ALM 

- 

ATMOS* 

ALOG 

- 

ATMOS* 

HTTRUK* 

ALPHA 

- 

DRAGL* 

alt 

* 

AERO* 

TRUCK* 

DIFFL 

ENGULF 

HYTRUK 

INLOAO 

MOTION 

SETA 

SUMTAB 

AM 

- 

TIRES* 

AHAX 

- 

MAXI* 

MOTION* 

SUMARY* 

SUMTAE 

TRUCK 

AMAXl 

- 

OIFFL* 

MAXI* 

PITER* 

AMIN 

- 

MAXI* 

MOTION* 

SUMARY* 

SUMTAB 

TRUCK 

AMINl 

- 

GEOM* 

MAXI* 

PITER* 

AMPY 

- 

MATXIN* 

AMU 

- 

ATMOS* 

AMUZ 

- 

ATMOS* 

AN 

- 

TIRES* 

ANGLE 

- 

MAXI 

MOTION 

SUMARY 

SUM  TAB* 

TRUCK* 

ATMOS 

- 

AERO* 

ArfSLO 

PRETRM* 
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AO 

AERO» 

TRUCK* 

DIFFL 

A3Q 

- 

TRUCK* 

A1 

- 

PITER* 

SETA* 

AZ 

- 

PITER* 

SETA* 

A6 

BLOATA 

AERO 

B 

- 

LAH90A» 

MULT* 

CASE 

- 

PRETRM* 

BATA 

- 

TIRES* 

9ATAT 

- 

TIRES* 

BETA 

- 

AERO* 

BASE 

GEOH 

GRA^* 

RFORDE 

SFORCE 

8ETAIJ 

- 

MOTION* 

TRIM* 

BLAST 

• 

AERO* 

TRUCK* 

DIFFL* 

both 

- 

BOTTOM* 

INPSPR* 

80TT0H 

- 

MOTION* 

B1 

- 

PITER* 

BZ 

- 

PITER* 

C 

- 

INTI* 

LAMBDA* 

CA 

* 

ATMOS* 

CALC 

- 

AERO* 

BASE* 

GEOM* 

MASSM* 

SFORCE* 

SUMARV* 

cc 

- 

SETA* 

CE 

- 

TIRES* 

CG 

- 

AERO* 

CGCALC* 

CGCALC 

- 

GEOM* 

CGHASS 

• - 

BLOATA 

CGCALC* 

MAXI 

MOTION 

CGPOS 

- 

BLOATA 

CGCALC* 

MAXI 

MOTION 

CGS 

- 

TIRES* 

CHECK 

- 

FSPRNG* 

GEOM* 

CINTl 

- 

INTI* 

TRUCK* 

CIP 

- 

MAXI 

MOTION 

CIQ 

- 

MAXI 

MOTION 

CK 

- 

BLOATA 

aero 

TIRES* 

TRUCK 

ENGULF 

HYTRUK 

INL  CAO 

DIFFL 

SOLVE* 

ENG  ULF 

T Nl_  OA  0 

BETAIJ* 

MASSM 

S UNARY 
TRUCK* 
ENGULF* 

BOTTOM 

MAXI 

SUM TAB 

HYTRUK* 

EULER 

MOTION 

TIRES* 

INLOAO* 

TRIM* 

TRUCK* 

PITER* 

BETAIJ* 

MAXI* 

SUHTAB* 

BOTTOM* 

MCTICN* 

TIRES* 

EULER* 

ORIGIN* 

TRIM* 

GEOH* 

INLOAO* 

lameoa* 

EXTRML 

REBOUN 

EXTRNL 

REBOUN 

FORCEI* 

RFORCE* 

FORCEI 

RFORCE 

FSPRNG 

SFORCE* 

FSPRNG 

SFORCE 

MaiON* 

PRETRM* 

TRIM* 

SUHARY 

SUMARV 

DIFFL* 

SUMTA8* 
SUHTAB* 
ENG ULF 

TRUCK* 

TRUCK* 

INLOAO 

MOTION 

SETA* 

SUHTAB 

MOTION 

CCT*» 
w w • ^ ~ 

▼ Pkl  lO 

1 rwL/  r\ 

EXTRNL* 

ORIGIN* 

TRIM* 

FORCEI 

PRETRM 

TRUCK 

FSPRNG 

REBOUN 

MOTION* 

SETA* 

/ 

SUHTAB* 

EXTRNL* 

PRETRM* 

TRUCK* 

FORCE I* 
REBOUN* 

FSPRNG* 

RFORCE* 

MOTION* 

TRUCK* 

GEOM* 

TIRES 

GEOM* 

TIRES 

L AHBOA 
TRIM 
LAMBDA* 
TRIM 

MASSM* 

TRUCK 

MASSM 

TRUCK 

TRUCK* 

INTIX* 

MOTION 

SETA* 

108 


CKK 

SETA* 

CN 

- 

GEON* 

INPSPR 

LAMBDA 

TIRES* 

trim 

TRUCK 

CON 

- 

RELAX* 

COS 

AERO* 

BETAIJ* 

ORAGL* 

EULER* 

SETA* 

TIRES* 

COSft 

AERO* 

TRUCK 

OIFFL 

EKGULF 

HYTRUK 

ZNL  OAO 

MOTION 

SETA* 

SUMTAB 

COSPHI 

- 

BETAIJ* 

EULER* 

COSPSI 

- 

BETAIJ* 

COSTHE 

- 

BETAIJ* 

EULER* 

COSl 

- 

AERO* 

C0S2 

- 

AERO* 

C0S3 

- 

AERO* 

CP 

8L0ATA 

TRUCK 

AERO* 

OIFFL 

ORAGL* 

ENGULF 

INLOAO 

MCTION 

SETA* 

CPI 

- 

AERO* 

CPQ 

- 

HTTRUK* 

CPQT 

- 

HYTRUK* 

CPOTl 

- 

HYTRUK* 

CPQT2 

- 

HYTRUK* 

CPS 

- 

HYTRUK* 

CPSIG 

- 

MAXI 

MOTION 

SUiARY 

SUMTAB* 

TRUCK* 

CPST 

- 

HYTRUK* 

CPSTl 

- 

HYTRUK* 

CPST2 

- 

HYTRUK* 

CPSO 

- 

MAXI 

MOTION 

SUMARY 

SUHTA8* 

TRUCK* 

CRIT 

AERO 

BASE 

BETAIJ 

BOTTOM 

EULER 

EXTRNL 

FCRCEI 

FSPRNG 

GEOM 

M ASSM 

MAXI 

MOTION 

ORIGIN 

PRETRM 

REBOUN 

RFORCE 

SFORCE 

SUMARY* 

SUMTA0 

TIRES 

TRIM 

TRUCK* 

CRKM 

- 

MAXI 

MOTION 

SIMARY 

SUMTAB* 

TRUCK* 

CT 

- 

GEOM* 

INPSPR 

LAMBDA 

TIRES* 

TRIM 

TRUCK 

Cl 

- 

HYTRUK* 

C2 

- 

HYTRUK* 

0 

- 

MAXI* 

TIRES* 

DAMPP 

- 

BLDATA 

CGCALC 

EXTRNL 

FCRCEI 

FSPRNG* 

GEOM* 

LAMBDA 

HASSM 

MAXI 

MOTION 

REBOUN 

RFORCE 

SFORCE 

TIRES 

TRIM 

TRUCK 

OAMPV 

m 

BLDATA 

CGCALC 

EXTRNL 

FORCEI 

FSPRN  6* 

GEOM* 

LAMBDA 

HASSM 

MAXI 

MOTION 

RESOUM 

RFORCE 

SFORCE 

TIRES 

TRIM 

TRUCK 

oatain 

BLDATA* 

CGCALC* 

EXTRNL* 

FCRCEI* 

FSPRNG* 

GEOM* 

LAMBDA* 

HASSM* 

MAXI* 

MOTION* 

REBOUN* 

RFORCE* 

SFORCE* 

TIRES* 

TRIM* 

TRUCK* 
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OCG 

- 

AERO 

BASE 

8ETAIJ 

BOTTOM 

EULER 

EXTRNL 

FCRCEI 

FSPRNG 

GEOH 

MASSM 

MAXI* 

MOTION* 

ORIGIN 

PRETRM 

REBOUN 

RFORCE 

SFORCE 

SUMARY 

SUMTAB 

TIRES 

TRIN 

TRUCK 

OCGO 

- 

AERO 

BASE 

8ETAIJ 

0OT  TOM 

EULER 

EXTRNL 

FCRCEI 

FSPRNG 

GEOM 

MASSM 

MAXI* 

MOTION 

ORI  GIN 

PRETRM 

REBOUN 

RFORCE 

SFORCE 

SUMARY* 

SUMTAB 

TIRES 

TRIM 

TRUCK 

OD 

- 

MAXI* 

TIRES* 

OOCOOE 

- 

BLOATA 

AERO 

OIFFL* 

ENGULF 

INLQAO 

MOTION 

SETA* 

TRUCK 

DOMIN 

- 

AERO 

BASE 

BETAI J 

BOTTOM 

EULER 

EXTRNL 

FCRCEI 

FSPRNG 

GEOM 

MASSM 

MAXI* 

HCTION 

ORIGIN 

PRETRM 

REBOUN 

RFORCE 

SFORCE 

SUMARY* 

SUMTAB 

TIRES 

TRIM 

TRUCK 

001 

- 

MAXI* 

002 

- 

MAXI* 

OEFLEC 

- 

FSPRMG* 

DEL 

- 

TIRES* 

DELN 

- 

TIRES* 

DELTA 

- 

AERO 

ATMOS* 

OIFFL 

ENGULF 

HYTRUK 

INLOAO 

MCTION 

SETA 

SUMTAB 

TRUCK* 

DELTAS 

- 

BASE* 

BOTTOM* 

FSPRNG* 

MAXI* 

MOTION* 

TRIM* 

TRUCK* 

OELTAT 

- 

EULER* 

ORIGIN* 

DELTO 

- 

TIRES* 

OELTIH 

- 

BLOATA 

AOAMI* 

A0AM5* 

CGCALC 

EXTRNL 

FORCEI 

FSPRNG 

GEOM* 

LAMBDA 

MASSM 

MAXI* 

MOTION* 

REBOUN 

RFORCE 

SFORCE 

TIRES* 

TRIM 

T RUC  K 

OELTM 

- 

TIRES* 

OELTNX 

- 

TIRES 

TRUCK* 

DELTNl 

- 

TIRES* 
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SUMTAB 

TIRES 

ENG  ULF* 

INL  OAO* 

MOTION* 

SETA* 

FORCE  I 
MOTIO^ 
TRIM 

FORCEI 

MOTION 

TRIM 


FORCEI 

MOTION 

TRIM 


FSPRN 

RFORC 

TRUCK 

FORCEI 

MOTION 

TRIM* 


TRUCK* 


rn  c) 
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M 

- 

ATMOS» 

EXTRNL* 

RE80UN* 

R FORCE* 

MASS 

- 

MASSM» 

MOTION* 

MASSES 

- 

AOAMl 

ADAM5 

FSPRNG 

GEOM* 

PRETRM 

TRUCK 

REBOUN 

MASSM 

- 

MOTION* 

MATOIM 

- 

MAT  XI  N* 

MATXIN 

- 

MOTION* 

MAX 

- 

MAT  XI  N* 

MAXDOF 

aiDATA* 

TRUCK 

BOTTOM* 

MAXI 

- 

MOTION* 

HAXMAS 

BLOAT  A* 
TRUCK 

BOTTOM 

MAXMIN 

- 

MAXI* 

MOTION* 

MAXSP 

8LDATA* 

TRUCK 

BOTTOM* 

MAXSPR 

• 

8L0ATA* 

TRUCK 

BASE 

MAXZ 

- 

MATXIN* 

MOIMOP 

- 

8L0ATA* 

CGCALC 

MAXI 

MOTION 

MOOF 

- 

AOAMl* 

ADAMS* 

FSPRMG* 

GEOM* 

PRETRM* 

TRUCK* 

REBOUN* 

MM 

- 

INPSPR* 

MULT* 

MOTION 

- 

TRUCK* 

MOVING 

- 

EXTRNL* 

MAXI* 

MRDIM 

BLOATA* 

TRUCK 

BOTTOM 

MSPRN5 

- 

AOAMl 

ADAMS 

FSPRNG* 

GEOM* 

PRETRM 

TRUCK 

REBOUN 

MULT 

- 

BOTTOM* 

FSPRNG* 

N 

- 

AERO* 

BOTTOM* 

MATXIN* 

MULT* 

FORCE  I* 

GRAV* 

INPSPR* 

SFORCE* 

SCL  VE* 

REBOUN* 

TRUCK* 

AERO 

BASE 

BOTTOM 

GRAtf* 

INPSPR 

LAMBDA 

RFORCE 

SFORCE 

SUM  ARY* 

FSPRNG* 

GEOM* 

INPSPR 

FSPRNG 

GEOM* 

INPSPR 

SUM  ARY* 
FSPRNG* 

SUMTAB* 

GEOM* 

TRUCK* 

INPSPR 

BOTTOM 

FSPRNG 

INP  SPR* 

EXTRNL 

REBOUN 

AERO* 

GRAY 

RFORCE 

FORCE I 

RFORCE 

BASE 

INPSPR 

SFORCE 

FSPRNG 

SFORCE 

BOTTOM* 

LAMBDA* 

SUMARY* 

RELAX* 

MOTION* 

FSPRNG 

ORIGIN* 

GEOM* 

TIRES* 

INPSPR 

AERO 

GRAY 

RFORCE 

BASE 

INPSPR 

SFORCE 

BOTTOM* 
LAM  BO  A* 
SUM  ARY* 

MOTION* 

OIFFL* 

RELAX* 

REBOUN* 

ENGULF* 

SETA* 

TIRES* 

FSPRNG* 

SOLVE* 

MASSM* 

MATXIN* 

MULT* 

CGCALC* 

EXTRNL 

FORCEI* 

MASSM* 

MAXI* 

MOTION 

SUMTAB 

T IRES* 

TRIM 

MASSM 

MCTION* 

REBOUN* 

MASSM 

MOTION 

REBOUN 

MASSM 

MCTION 

REBOUN 

PRETRM 

TIRES 

TRIM 

GEOM* 

TIRES 

CGCALC 

MASSM* 

SUMTAB 

LAMBDA 

TRIM 

EXTRNL* 

MAXI* 

TIRES* 

MASSM 

TRUCK 

FORCEI 

MOTION* 

TRIM* 

TRIM* 

MASSM 

TRUCK* 

MCTION 

REBOUN 

CGCALC 

EXTRNL 

FORCE  I 

MASSM 

MAXI* 

MOTION* 

SUMTAB 

TIRES 

TRIM 

INLOAO* 

INPSPR* 

LAMBDA* 

SUMTAB* 

TRIM* 

119 


NA 

- 

BOTTOM* 

INPSPR* 

REBOUN* 

NAS  PR 

- 

ADAHI 

A CAMS 

AERO 

BASE 

BOTTOM* 

CGCALC 

EXTRNL 

FORCE  I 

FSPRNS* 

CEOH* 

GRAV 

INP  SPR* 

LAMBDA* 

MASSM 

MAXI 

MOTION 

PRETRM* 

truck 

RE80UN* 

RFORCE 

SFORCE 

SUM  ARY 

SUMTAB 

TIRES 

TRIM 

N8  0T0M 

- 

BOTTOM* 

INPSPR 

TRIM 

TRUCK 

N30X 

- 

BLDATA 

AERO* 

OIFFL 

ENGULF* 

INLOAD* 

MOTTON 

SETA* 

« r\ 

A t t 

- 

AD  A nX 

ADAM5 

AERO 

BASE 

BOTTOM 

CGCALC 

EXTRNL* 

FORCE  I 

FSPRNG 

GEOM 

GRAV 

INPSPR 

L AM  BD  A 

MASSM 

MAXI 

MOTION 

PRETRM 

TRUCK* 

RE0OUN 

RFORCE 

SFO  RCE 

SUMARY 

SUMTAB 

TIRES 

TRIM 

NCAS£ 

- 

ADA  MI 

ADAMS 

AERO 

BASE 

BOTTOM 

CGCALC 

EXTRNL 

FORCE  1 

FSPRNG 

GEOM 

GRAV 

INPSPR 

lambda 

MASSM 

MAXI 

MOTION 

PRETRM 

REBOUN 

RFORCE 

SFORCE 

sumary 

SUMTAB 

TIRES 

TRIM 

TRUCK* 

- 

NCOUNT. 

- 

PRETRM* 

RELAX* 

TRIM* 

NOET 

- 

SOLVE* 

NDIM 

- 

RELAX* 

SOLVE* 

NDOF 

LAM90A* 

NOOFA 

- 

TIRES* 

' 

NEQ 

AOAMI* 

ADAMS* 

BOTTOM 

EXTRNL 

MOTION 

REBOUN 

RELAX* 

TIRES 

NFL  AG 

- 

TRUCK* 

NIT 

- 

AOAHI* 

ADAMS* 

BOTTOM* 

EXTRNL* 

MOT  ION* 

REBOUN 

TIRES 

Njoa 

- 

AOAMI 

ADAMS 

AERO 

BASE 

BOT TOM 

CGCALC 

EXTRNL 

FORCE  I 

FSPRNG 

GEOM 

GRAV 

INPSPR 

LAMBDA 

MASSM 

MAXI 

MOTION 

PRETRM 

TRUCK* 

REBOUN 

RFORCE 

SFORCE 

SUM ARY 

SUMTAB 

TIRES 

TRIM 

NK 

- 

TIRES* 

NMl 

- 

SOLVE* 

NN 

- 

MULT* 

NNQ 

- 

RELAX* 

NOK 

- 

PRETRM* 

RELAX* 

TRIM* 

NOR 

- 

TRUCK* 

NORMA X 

- 

TRUCK* 

NOUT 

- 

ADAHI 

ADAMS 

AERO* 

BASE 

BOTTOM 

CGCALC 

EXTRNL 

FORCE  I 

FSPRNG* 

GEOM 

GRAV 

INP SPR 

lambda 

MASSM 

MAXI 

MOTION* 

PRETRM 

TRUCK 

REBOUN 

RFORCE 

SFORCE 

SUM ARY 

SUMTAB 

TIRES 

TRIM 

NP 

- 

BASE* 

FSPRNG* 

INPSPR* 

PRE T«H* 

TRIM* 

NPOAMP 

- 

BLOATA 

CGCALC 

EXTRNL 

FCRCEI 

FSPRNG* 

GEOM* 

LAMBDA 

MASSM 

MAXI 

MOTION 

REBOUN 

RFORCE 

SFORCE 

TIRES 

TRIM 

TRUCK 
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NPPC 

• 

BLOAT  ft 

BASE* 

TRUCK 

NPR 

- 

PRETRN* 

TRIM* 

NPRINT 

• 

ADAHI 

ADAMS 

FSPRNG 

GEOM* 

PRETRM 

REBOUN 

TRIM 

TRUCK* 

NPS 

- 

BLOATfl 

AERO* 

NPSS 

- 

AERO* 

ENGULF* 

NPV 

- 

FSPRNG* 

NQ 

- 

RELAX* 

NRSPR 

- 

AOAMl 

ADAMS 

FSPRNG 

GEOM* 

PRETRH 

TRUCK 

REBOUN 

NS 

- 

BOTTOM* 

REBOUN* 

NSP 

- 

REBOUN* 

NSPRNG 

- 

AOAHI 

ADAMS 

FSPRNG* 

GEOM* 

PRETRM 

TRUCK 

REBOUN 

NSTOP 

- 

PRETRH* 

NT 

- 

HYTRUK* 

L AMBDA* 

NT  IRES 

- 

GEOM* 

INPSPR 

NTMAX 

- 

TRUCK* 

NTRIAL 

- 

AOAMl 

ADAMS 

FSPRNG 

GEOM 

PITER* 

PRETRM 

TRIM 

TRUCK* 

NTRY 

- 

PRETRM* 

TRIM* 

NTSPRN 

- 

GEOM* 

INPSPR* 

NTT 

LAM30A* 

T IRES* 

NTl 

- 

HYTRUK* 

NT  2 

HYTRUK* 

NX 

- 

INTI* 

INFIX* 

NXl 

- 

TIRES* 

NZ 

MATXIN* 

OPTION 

- 

AOAMl* 

ADAMS* 

FSPRNG* 

GEOM* 

PRETRM* 

TRUCK* 

REBOUN* 

BOTTOM 

FSPRNG* 

INPSPR* 

AERO 

GRAY 

RELAX* 

BASE 

INPSPR 

RFORCE 

BOTTOM* 

lambda 

SFORCE 

DIFFL 

INLOAO* 

ENGULF* 

SETA* 

INLCAD* 

AERO 

GRAY 

R FORCE 

BASE 
INPSPR 
SFO RCE 

BOT  TOM 

lambda* 

SUM  ARY 

AERO 

GRAY 

RFORCE 

BASE 

INPSPR* 

SFORCE 

BOTTOM 

lambda 

SUMARY 

TIRES* 

lambda* 

TRUCK* 

T IR  ES* 

TRIM* 

AERO 

GRAY 

REBOUN 

BASE 

INPSPR 

RFORCE 

BOTTOM 

lambda 

SFORCE 

LAMBDA 

TRUCK* 

TIRES* 

TRIM* 

TIRES* 

AERO* 

GRAY* 

RFORCE* 

BASE* 

INPSPR* 

SFORCE* 

BOTTOM* 

lambda* 

SUMARY* 

PRETRM* 

TIRES* 

TRIM* 

CGCALC 

MASSH 

SUMARY 

EXTRNL 

MAXI 

SUMTAB 

FORCE  I 

MOTION* 

TIRES 

MOTION 

SETA* 

TRUCK 

CGCALC 

MASSM 

SUMTAB 

EXTRNL 

MAXI 

TIRES 

FORCE  I 
MOTION 
TRIM 

CGCALC 
MASSM 
SUNT  AB 

E XTRNL 

MAXI 

TIRES 

FORCE  I 
MOTION 
TRIM 

TRUCK* 

CGCALC 

MASSM 

SUMARY 

EXTRNL 

MAXI 

SUMTAB 

FORCE  I 
MOTION 
TIRES 

TRUCK 

CGCALC* 

MASSM* 

SUMTAB* 

EXTRNL* 

MAXI* 

T IRES* 

FORCE  I* 
MOTION* 
TRIM* 
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ORIGIN 

- 

MOTION* 

P 

- 

AERO* 

OIFFL* 

HYTRUK* 

POSAV 

- 

BOTTOM 

EULER* 

MOTION* 

REBOUN 

PI 

- 

BLOATA* 

AERO* 

OIFFL 

ENGULF* 

INLOAO 

MOTION 

SETA* 

TRUCK* 

PINP 

AERO 

TRUCK* 

OIFFL 

ENGULF 

HYTRUK* 

INLOAO 

MOTION 

SETA 

SUHTAB* 

r>T  T/N » * 
r-  i ■ u n 

— 

AERO 

BASE 

8ETAIJ* 

BOTTOM 

EULER* 

EXTRNL 

FORCE  I 

FSPRNG 

GEOH 

HASSM 

MAXI 

MOTION* 

ORIGIN 

PRETRM 

REBOUN 

RFORCE 

SFORCE 

SUMARY 

SUHTA3 

TIRES 

TRIM* 

TRUCK* 

PITCHO 

- 

EULER* 

PITER 

- 

TRUCK* 

PIl 

- 

DRAGL* 

PL 

- 

HYTRUK* 

POSO 

- 

TIRES* 

pp 

- 

HYTRUK* 

PQ 

- 

HYTRUK* 

PQl 

- 

HYTRUK* 

PR 

• 

AERO* 

TRUCK 

OIFFL 

ENGULF 

HYTRUK 

INLOAO 

MOTION 

SETA* 

SUMTAB 

PRB 

- 

SETA* 

PRELOO 

- 

BASE* 

GEOM* 

PRETRM* 

TRUCK* 

PRES 

- 

RELAX* 

PRETRM 

- 

TRIM* 

PROP 

- 

RELAX* 

PS 

• 

AERO* 

TRUCK 

OIFFL* 

ENGULF 

HYTRUK 

I NL  CAO 

MOTION 

SETA 

SUMTAB 

PSAV 

- 

BOTTOM 

EULER* 

MOTION* 

REBOUN 

PSINF 

- 

BLOATA 

AERO 

OIFFL* 

ENGULF 

INL  OAO 

MOTION 

SETA* 

TRUCK 

PSOEST 

• 

AERO 

TRUCK* 

OIFFL 

EAGULF 

HYTRUK 

INLOAO 

MOTION 

SETA 

SUMTAB 

PST 

- 

HYTRUK* 

PSTl 

- 

HYTRUK* 

PST  2 

- 

HYTRUK* 

PSO 

* 

AERO* 

TRUCK* 

OIFFL* 

ENGULF 

HYTRUK 

INLOAO 

MOTION 

SETA* 

SUMTAB* 

PSOO 

- 

BLOATA 

AERO 

OIFFL* 

ENGULF 

I NL  OA  0 

MOTION 

SETA* 

TRUCK 

PSl 

- 

HYTRUK* 

ptrial 

- 

AERO 

BASE 

BETAI  J 

8CT  TOM 

EULER 

EXTRNL 

FCRCEI 

FSPRNG 

GEOM 

MASSM 

MAXI 

MOTION 

ORIGIN 

PRETRM 

REBOUN 

RFORCE 

SFORCE 

SUMARY 

SUMTAB 

TIRES 

trim 

TRUCK* 
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PX 

RELAX» 

SUMTAB 

PO 

- 

AERO*^ 

TRUCK* 

OIFFL 

ENGULF 

HYTRUK 

INLCAO 

MOTION 

SETA 

Q 

— 

AERO* 

ATMOS* 

HYTRUK* 

SUMTAB* 

aiHP 

- 

AERO 

TRUCK* 

OIFFL 

ENGULF 

HYTRUK* 

INLOAO 

motion 

SETA 

QR 

AOAHI 

ADAMS* 

BOTTOM 

EXTRNL 

MOT  ION 

RE90UN 

TIRES 

ORD 

- 

ADAMI* 

ADAMS* 

BOTTOM 

EXTRNL 

MOTION 

REBOUN 

TIRES 

QRP 

- 

ADAMI* 

ADAMS* 

BOTTOM 

EXT  RNL 

MOT  ION 

REBOUN 

TIRES 

QQ 

AERO* 

TRUCK* 

DIFFL 

ENGULF 

HYTRUK 

INL  GAD 

MOTION 

SETA* 

SUMTAB 

R 

- 

HYTRJK* 

INTI* 

MULT* 

PITER* 

RANGE 

AERO* 

TRUCK 

DIFFL 

ENGULF 

HYTRUK 

INL  CAD 

MOTION 

SETA 

SUMTAB 

rangem 

AERO* 

TRUCK* 

DIFFL 

ENGULF 

HYTRUK 

INLOAO 

MOTION 

SETA 

SUMTAB* 

ROSAV 

- 

BOTTOM 

EULER* 

MOTION* 

REBOUN 

RE 

- 

ATMOS* 

RE80UN 

- 

BOTTOM* 

RELAX 

- 

PRETRM* 

TRIM* 

RES 

- 

PRETRM* 

RELAX* 

return 

- 

ADAMI* 

ADAMS* 

AERO* 

ATMOS* 

BASE* 

BETArj* 

eCTTOM* 

C6CALC* 

OIFFL* 

ORAGL* 

ENGULF* 

EULER* 

EXTRNL* 

FORCEI* 

FSPRNG* 

GEOM* 

GRAY* 

HYTRUK* 

IM.OAD* 

INPSPR* 

I NT  1* 

INTIX* 

LAMBDA* 

MASSM* 

MAT  X IN* 

MAXI* 

MOTION* 

MLl  T* 

ORIGIN* 

PITER* 

PRETRM* 

REBOUN* 

RELAX* 

TRIM* 

R FORCE* 

SETA* 

SFORCE* 

SOL\£* 

SUMARY* 

SUMTAB* 

tires* 

RPORCE 

- 

EXTRNL* 

RHO 

- 

ATMOS* 

RHOZ 

- 

ATMOS* 

RHOO 

AERO* 

RIR 

- 

MULT* 

RL 

- 

HYTRUK* 

RLP 

- 

RELAX* 

RLX 

- 

LAMBDA* 

RLY 

- 

LAMBDA* 

RLZ 

- 

lambda* 

RNK 

- 

TIRES* 

ROLL 

- 

AERO 

BASE 

8ETAIJ* 

BOTTOM 

EULER* 

EXTRNL 

FORCE I 

FSPRNG 

GEOM 

MASSM 

MAXI 

MCriON* 

ORIGIN 

PRETRM 

REBOUN 

RFORGE 

SFORCE 

SUMARY 

SUMTAB 

TIRES 

> 

TRIM* 

TRUCK* 
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ROLLO 

- 

EULER"^ 

ROW 

- 

MATXIN* 

RR 

- 

HYTRUK* 

RRES 

mm 

RELAX» 

RSAV 

- 

BOTTOM 

E ULE  R* 

MOTION* 

RE80UN 

RT 

- 

uvToijjr* 

RTl 

- 

HYTRUK* 

RT2 

- 

HYTRJK* 

PITER* 

RM 

- 

GEOM» 

INPSPR 

LAM30A 

TIRES* 

TRIM 

TRUCK 

R1 

- 

PITER» 

R3 

PITER* 

S 

8L0ATA 

TRUCK 

AERO* 

ATMOS* 

OIFFL 

ENGaF 

INLOAO* 

MOTION 

SETA 

SAVACC 

- 

BOTTOM* 

MOTION* 

TRUCK* 

S80TM 

- 

BOTTOM* 

INPSPR* 

TRIM 

TRUCK 

SE 

- 

TIRES* 

SETA 

- 

AERO* 

SF 

- 

AERO* 

DIFFL 

ENGULF 

HYTRUK* 

INLOAO 

MOTION 

PRETRH* 

SETA 

SUMTAB 

TRUCK 

SFORCE 

- 

EXTRNL* 

SG 

- 

AERO* 

SGS 

- 

TIRES* 

SIG 

- 

BLOATA 

AERO* 

OIFFL 

ENGULF 

INLOAO 

NOTION 

SETA* 

TRUCK 

SIGI 

- 

AERO* 

SIGMA 

- 

ATMOS* 

SIGMA8 

- 

ATMOS* 

SIGX 

- 

RELAX* 

SIN 

- 

AERO* 

BETAIJ* 

EULER* 

SETA* 

TIRES* 

TRUCK* 

SINA 

AERO* 

TRUCK 

DIFFL 

ENGULF 

HYTRUK 

I NL  CA  0 

MOTION 

SETA* 

SUMTA8 

SINPHI 

- 

3ETAIJ* 

EULER* 

SINPSI 

- 

8ETAIJ* 

SINTHE 

- 

9ETAIJ* 

EULER* 

Sll 

- 

BLOATA 

AERO 

OIFFL 

ENG ULF 

I NL  OA  0* 

NOTION 

SETA* 

TRUCK 

SI2 

- 

BLOATA 

AERO 

DIFFL 

ENGULF 

INLOAO* 

MOTION 

SETA* 

TRUCK 

SI3 

- 

BLOATA 

AERO 

DIFFL 

ENGULF 

I NL  OA  0* 

MOTION 

SETA* 

TRUCK 

Slk 

- 

BLOATA 

AERO 

OIFFL 

ENG ULF 

INL  CAO* 

MOTION 

SETA* 

TRUCK 

SJl 

- 

BLOATA 

AERO 

DIFFL* 

ENGULF 

INL  OAO 

MOTION 

SETA* 

TRUCK 

SJ2 

- 

BLOATA 

AERO 

DIFFL* 

ENGULF 

INL  OAO 

MOTION 

SETA* 

Truck 

124 


SJ3 

- 

BLDATA 

AERO 

SJ4 

- 

BLOATA 

AERO 

SLID 

- 

TIRES* 

TRUCK* 

SLOPE 

BLDATA 

HA  XI 

CGCALC 

MOTION 

SLX 

- 

lahboa* 

SL  XA 

- 

lambda* 

SLY 

- 

LAMBDA* 

SLZ 

- 

lambda* 

SMAX 

- 

MAXI* 

MOTION* 

SMIN 

- 

MAXI* 

MOTION* 

SOLVE 

- 

RELAX* 

SPRING 

BLOATA* 

TRUCK* 

BASE* 

SPRNG 

- 

EXTRNL* 

SORT 

AERO* 

ATMOS* 

STOP 

- 

TRUCK* 

SUHARY 

- 

TRUCK* 

SUMTAB 

- 

TRUCK* 

T 

- 

OIFFL* 

ENGULF* 

TA 

- 

ENGULF* 

TAMAX 

- 

MAXI* 

MOTION 

TAMIN 

- 

MAXI* 

MOTION 

TAN 

- 

ENGULF* 

TIRES* 

TANA 

ENGULF* 

TCGM 

- 

CGCALC* 

TCGX 

- 

CGCALC* 

TCGY 

- 

CGCALC* 

TCGZ 

- 

CGCALC* 

TO 

• 

BLDATA 

TRUCK 

AERO* 

TOLAST 

- 

BLOATA 

AERO* 

TOMAX 

- 

MAXI* 

MOTION 

TOHIN 

- 

MAXI* 

MOTION 

TOT 

- 

HYTRUK* 

TOTi 

- 

HYTRUK* 

TOT2 

- 

HYTRUK* 

TERMl 

- 

TIRES* 

DIFFL* 

OIFFL* 

ENGULF 

ENGULF 

INLOAO 

INLOAO 

EXTRNL* 

RE90UN 

FORCE  I 
RFORCE 

FSPRNG 

SFORCE 

SUMARY* 
SUM ARY* 

SUMTAB 

SUMTAB 

TRUCK 

TRUCK 

BOTTOM* 

FSPRNG* 

INPSPR* 

ENGULF* 

lambda* 

MAX  ]* 

HYTRUK* 

SOL  VE* 

SUMARY* 

SUMARY* 

SUMTAB 

SUMTAB 

TRUCK 

TRUCK 

DIFFL 

ENGULF* 

HYTRUK* 

DIFFL 

SUMARY* 

SUMARY* 

ENGULF* 

SUMTAB 

SUMTAB 

I NL  CA  0 

TRUCK 

TRUCK 

MOTION 

SETA* 

TRUCK 

MOTION 

SETA* 

TRUCK 

GEOM* 

LAHBOA 

MASSM 

TIRES 

TRIM* 

TRUCK 

PRETRM* 

TIRES* 

TRIM* 

SETA* 

TIRES* 

INLOAO 

MOTION 

SETA 

MOTION 

SETA 

TRUC 
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TGS 

•V  i, 

TIRES» 

4 

THETA 

- 

ATMOS* 

TIM 

- 

AERO* 

time 

- 

AOAM5* 

AERO* 

BASE 

BETAIJ 

BOTTOM* 

EULER 

EXTRNL 

FORCE  I 

FSPRN6 

GEOM 

MASSM 

MAXI* 

MOTION* 

ORIGIN 

PRETRM 

REBOUN 

RFORCE 

SFORCE 

SUMARY* 

SUMTAB* 

T IRES* 

TRIM 

TRUCK* 

TIHi 

- 

AERO* 

TI012 

- 

AOAHI* 

ADAMS* 

BOTTOM 

EXTRNL 

MOT  ION* 

REBOUN 

TIRES 

TI02 

- 

AOAHI* 

ADAM5* 

BOTTOM 

EXTRNL 

MOTION* 

REBOUN 

TIRES 

TI024 

- 

AOAMI* 

ADAMS* 

BOTTOM 

EXTRNL 

MOTION* 

REBOUN 

TIRES 

TI072 

- 

AOAHI* 

ADAMS* 

BOTTOM 

EXTRNL 

MOTION* 

REBOUN 

TIRES 

TIREC 

- 

GEOH* 

INPSPR* 

LAMBOA* 

TIRES* 

TRIM* 

TRUCK* 

TIRES 

- 

EXTRNL* 

TIRSAV 

- 

TIRES* 

TRUCK* 

TL 

- 

LAMBDA* 

TLX 

- 

GEOM 

INPSPR 

LAMBDA* 

TIRES* 

TRIM 

TRUCK 

TLX8 

- 

TIRES* 

TLV 

- 

GEOM 

INPSPR 

LAMBDA* 

TIRES* 

TRIM* 

TRUCK 

TLY8 

- 

LAMBDA* 

TIRES* 

TLZ 

- 

GEOM 

INPSPR 

LAMBDA* 

TIRES* 

TRIM 

TRUCK 

TLZ9 

- 

LAMBDA* 

TH 

- 

ATMOS* 

TMB 

ATMOS* 

THIN 

- 

AERO 

BASE 

BETAIJ 

bottom 

EULER 

EXTRNL 

FORCE  I 

FSPRNG 

GEOM 

MASSM 

MAXI* 

MOTION 

ORIGIN 

PRETRM 

REBOUN 

RFORCE 

SFORCE 

SUMARY* 

SUMTAB* 

TIRES 

TRIM 

TRUCK 

TMZ 

- 

ATMOS* 

TOLl 

PITER* 

T0L2 

- 

PITER* 

total 

- 

TRIM* 

TRIM 

- 

TRUCK* 

TRMDIH 

- 

TRIM* 

TS 

- 

HYTRUK* 

TRIM* 

TSMAX 

- 

MAXI* 

MOTION 

SUHARY* 

SUMTAB 

TRUOK 

TSMIN 

- 

MAXI* 

MOTION 

SIWARY* 

SUMTAB 

TRUCK 

TSQ 

- 

HYTRU  K» 

TT 

- 

HYTRUK* 

\ 

TVMAX 

> 

MAXI* 

MOTION 

SUHARY* 

SUMTAB 

TRUCK 

TYMIN 

- 

MAXI* 

MOTION 

SUHARY* 

SUMTAB 

TRUCK 
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TO 

- 

AERO* 

T1 

- 

OIFFL* 

ENGULF* 

T2 

- 

DIFFl* 

T3 

- 

OIFFL* 

T4 

- 

OIFFL* 

U 

- 

GEOM* 

INPSPR 

V 

- 

OIFFL* 

FSPRNG* 

V9 

- 

TIRES* 

t<DAMP 

- 

FSPRNG* 

VO  OH 

- 

RE80UN* 

VDT 

- 

TIRES* 

VEL 

- 

BOTTOM* 

INPSPR 

VIMP 

- 

RE80UN* 

VHAX 

- 

MAXI* 

MOTION* 

VMIfJ 

- 

MAXI* 

MOTION* 

VNUM 

- 

RE80UN* 

VS 

AERO* 

TRUCK 

OIFFL 

VT 

- 

TIRES* 

M 

aero* 

TRUCK* 

OIFFL 

HEIGHT 

- 

GEOM* 

GRAV* 

HF 

- 

SETA* 

WG 

- 

BLDATA 

AERO 

WGTS 

- 

GEOH* 

GRAV* 

HH 

- 

SETA* 

X 

BLDATA 

PRETRM* 

BASE* 

RELAX* 

XB 

- 

INL OAD* 

X8ARCM 

AERO* 

GEOM* 

SFORCE* 

BASE 

HASSM* 

SUMARY 

XBOGIE 

ADAMI 

FSPRMG 

PRETRM 

TRUCK 

A0AH5 

GEOM 

RE90UN 

XBOX 

- 

BLDATA 

AERO* 

XCG 

- 

CGCALC* 

GEOM* 

XOSAVE 

- 

EXTRNL 

MAXI 

LAMBDA 

TIRES* 

TRIM 

TRIM 

TRUCK 

SUMARY* 

SUMARY* 

SUMTAB 

SUMTAB 

TRUCK 

TRUCK 

ENGULF* 

HYTRUK 

INLOAD 

ENGULF 

HYTRUK 

INLOAO 

PRETRM* 

TRIM* 

TRUCK* 

OIFFL 

PRETRM* 

ENGULF 

TRIM 

INLOAO 

TRUCK 

BOTTOM 

TIRES* 

FSPRNG* 

TRIM* 

HYTRUK* 

TRUCK 

BETAIJ 

MAXI 

SUMTAB 

AERO 

GRAV 

RFORCE 

8CT TOM 

MCTION 

TIRES* 

BASE 

INPSPR 

SFORCE 

EULER 

ORIGIN 

TRIM 

SOT  TOM 
LAMBD  A* 
SUM  ARY 

OIFFL 

INLOAD* 

MOTION* 

ENGULF* 

LAMBDA* 

ORIGIN* 

INLCA  0* 

MOTION 

TIRES 

TRUCK 


MOTION 

SETA* 

SUMTAB 

MOTION 

SETA 

SUMTAB* 

MOTION 

SETA* 

TRUCK 

INPSPR* 

INTI* 

INT  IX* 

EXTRNL 

FORCE  I* 

FSPRNG 

PRETRM* 

TRUCK 

RE80UN 

RFORCE* 

CGCALC 

EXTRNL 

FORCE  I 

MASSM 

MAXI 

MOTION 

SUMTAB 

TIRES 

TRIM 

MOTION 

TRUCK 

SETA 

TRUCK 

TRIM 

TRUCK 

XI 

- 

TIRES* 

XIVZ 

* 

8L0ATA 

CGCALC 

EXTRNL 

FORCEI* 

FSPRNG 

GEOM* 

LAMBDA 

MASSN* 

MAXI 

MOTION 

REBOUN 

RFORCE 

SFORCE 

TIRES 

TRIM 

TRUCK 

XII 

- 

BLOATA 

CGCALC 

EXTRNL 

FORCEI* 

FSPRNG 

GEOM* 

LAMBDA 

MASSM* 

MAXI 

MOTION 

REBOUN 

RFORCE* 

SFORCE* 

TIRES 

TRIM 

TRUCK 

XI? 

- 

BLOAT  a 

gggalc 

EXTRNL 

FCRCE  I* 

FSPRNG 

GEOM* 

lambda 

MASSM* 

MAXI 

MOTION 

REBOUN 

RFORCE* 

SFORCE* 

TIRES 

TRIM 

TRUCK 

XI3 

- 

BLOATA 

CGCALC 

EXTRNL 

FORCEI* 

FSPRNG 

GEOM* 

lambda 

MASSM* 

MAXI 

MOTION 

REBOUN 

RFORCE* 

SFORCE* 

TIRES 

TRIM 

TRUCK 

XLAM04 

BASE* 

BOTTOM* 

EXTRNL 

FSPRNG* 

LAMBDA* 

PRETRM* 

REBOUN* 

TRIM 

TRUCK 

XLJ 

- 

FORCEI* 

RFORCE* 

SFORCE* 

XHASS 

- 

MASSM* 

MOTION* 

REBOUN* 

TRUCK 

XMJ 

- 

FORCEI* 

RFORCE* 

SFORCE* 

XOBAR 

- 

EXTRNL* 

MAXI* 

MCTION* 

ORIGIN* 

TIRES* 

TRIM* 

TRUCK* 

XOBARO 

- 

ORIGIN* 

XPREL 

- 

BASE* 

XPROP 

- 

RELAX* 

XRES 

- 

RELAX* 

XSAVE 

- 

EXTRNL 

MAXI 

MOTION 

ORIGIN* 

TIRES 

TRIM* 

TRUCK* 

XSAVEX 

- 

TRUCK* 

XSC 

TIRES* 

XT 

- 

INTI* 

INTIX* 

XTB 

- 

EXTRNL 

MAXI* 

MaiON 

ORIGIN 

TIRES* 

TRIM 

TRUCK 

XT8AR 

- 

TIRES* 

XXI 

RELAX* 

XO 

- 

ENGULF* 

XI 

- 

AERO* 

X3 

- 

AERO* 

Xit 

- 

AERO* 

YAH 

- 

AERO 

BASE 

BETAIJ* 

BOTTOM 

EULER* 

EXTRNL 

FORCEI 

FSPRNG 

GEOM 

MASSM 

MAXI 

MCTION* 

ORIGIN 

PRETRM 

REBOUN 

RFORCE 

SFORCE 

SUMARY 

SUMTAB 

TIRES 

TRIM* 

TRUCK* 

YAHD 

- 

EULER* 

YB 

- 

INLOAO* 

Y80X 

- 

BLOATA 

AERO* 

OIFFL 

ENGULF 

INLOAD* 

MOTION 

SETA 

TRUCK 

YCG 

- 

CGCALC* 

GEOM* 

INLOAO* 

LAMBDA* 

MCTION 

TRUCK 

YOSAV 

- 

BOTTOM 

EULER* 

MOTION* 

REBOUN 
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YOSAVE 

- 

EXTRNL 

MAXI 

YIELD 

- 

MAXI 

MOTION 

YL  J 

- 

FORCEI* 

R FORCE* 

Y08AR 

- 

EXTRNL 

M AXI 

YOBARD 

- 

ORIGIN^ 

YSArf 

- 

BOTTOM 

EULER* 

VSAVE 

- 

EXTRNL 

MAXI 

YSAVeX 

- 

TRUCK'^ 

YT 

- 

INT1» 

YT8AR 

- 

TIRES» 

Z 

• 

AERO* 

SUMTA3 

ATMOS* 

TRUCK 

ZB 

- 

INLOA0* 

ZBOX 

- 

BLDATA 

AERO* 

ZCG 

- 

CGCALC* 

GEOM* 

ZDSAVE 

- 

EXTRNL 

MAXI 

ZLJ 

- 

FORCEI* 

R FORCE* 

ZOBAR 

- 

EXTRNL 

MAXI* 

ZOBARO 

- 

ORIGIN* 

ZS  AVE 

- 

EXTRNL 

MAXI 

ZSAVEX 

- 

TRUCK* 

ZT8 

- 

EXTRNL 

MAXI* 

ZTBAR 

- 

TIRES* 

MOTION* 

ORIGIN* 

TIRES 

SUMARY 

SUMTAE* 

TRUCK* 

SFORCE* 

MaiON* 

ORIGIN* 

TIRES* 

MOTION* 

REBOUN 

MOTION 

ORIGIN* 

TIRES 

OIFFL 

ENGULF 

HYTRUK 

DIFFL 

ENGULF* 

INL  OAO* 

INLOAO* 

LAMBDA* 

MOTION 

MOTION* 

ORIGIN* 

TIRES 

SFORCE* 

MOTION* 

ORIGIN* 

TIRES* 

MOTION 

ORIGIN* 

TIRES 

MOTION 

ORIGIN 

TIRES* 

TRIM 

TRUCK 

TRIM* 

TRUCK* 

TRIM* 

TRUCK* 

INLOAO 

MOTION 

SETA* 

MOTION 

SETA 

TRUCK 

TRUCK 

TRIM 

TRUCK 

TRIM* 

TRUCK* 

TRIM* 

TRUCK* 

TRIM 

TRUCK 

NO  UNUSEO  VARIABLES  APPEAR  IN  THE  ABOVE  LIST. 
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OOCJOOOOOOOOOOOOOOOOOOOOOOOO 


MAIN  PROGRAM, 

A OYMAMIC  MATHEMATICftL  MODEL  OF  A TRUCK-SMELT ER- RACK 
SYSTEM  IN  RESPONSE  TO  A BLAST  HAVE. 


FILE  USE  - 


TAPE  5 = INPUT 
TAPE  6 = OUTPUT 
TAPE  8 = DATA  TAPE 


FffR  GRAPHICS. 


JULY,  1977,  VERSION  2.0. 

KERR  - 0,  NO  ERROR 

1,  NEW  ORIENTATION 

2,  NEW  JOB 

3,  ABORT  JOB. 

NGALL  - 0,  RESPONSE 

1,  TRIM 

2,  SETUP.  * 

KTIRE  - 0,  FIRST  PASS 

1,  NEW  TRIM 

2,  OLO  TRIM 

COMMON/BLAST/  A, A D, A 0 1 , A D2, A LT, A 0, CO SA , CELT A , <BL  AST ,PIMP,PR, 

1  PS ,PSOEST,PSO,PO,aiNP,QO,RANGE,RANGEM,SF<5  »,  SINA,VS,H,Z 
COMMON/BOTM/  EXPANdOO  > ,N80T0M  (10  0)  ,S BOTH  (100)  , VEL  (10  0) 

COMMON7CALC/  BETA  (3 , 3 ) , CRIT  ( 5)  , DCG,  DC  GO,  DDM I N , 0 VEL  , 

1 FA  ERO( 50), FORCE ( 50 ) , GENACC (5 0) , GENOI S(50)  , GENVEL(50) , KTIRE, 

2 PITCM,PTRIAL (5) , ROLL, T IME, TMIN ,X BA RCM ( 3, 13)  , YAW 

C0MM0N7CG/  XCG,YCG,ZCG 

COMMON/CHECK/  JOEBJG 
C0MM0N7CINT1/  IIMAX.IINT 

COMMON/DATA IN/  CGMASS(13) ,CGPOS(3,13) ,DAMPF(600) ,OAMPV(600), 

1 DELTIM,ENOTIM,G, GS (2) , ISOAMP ( 5 0 ) ,MOI MO P, NP OA M P ( 50 ), SLOPE, 

2 XIYZ,XI1(13) ,XI2(13),  XI3(13),DELTX,D  ELTXl, 0»RT, OPRTl ,ENDT X 
COMMON/OELTAS/  OISP(IOO) 

MA<OOF,HAXMAS,MAKSP, MROIM 
IFIRST 

GENDIX(50) ,XSAVEX, YSAVEX,ZSAVEX 
JTRIM 

COMMON  XLAMOAdOO, 44) 

CQMMON/LOAD/  AL ( 6)  , A6  ( 6 ) , C K ( 6 ) , CP  (6  ) , OOCO DE  (6 ) , 


COMMON/OIMENS/ 

COMMON/INTFLG/ 

COMMON/ITER/ 

COMMON/JFTRIM/ 


EEF(4,6)  ,IIS,IS,JFIR(  16,6,4)  ,KDE8UG,  t<TS(4»  ,NBOX, 
NPS(6,4)  ,PI,PSINF(6)  , PSO  0(  6)  • S ( 16,  6,  4)  , SIG  (S)  , 


SI  1(16, 6,4), SI2( 16,0,4) , SI3 (16,6,4 ), SI  4(1 6,3,4) , 

4 SJ1(16,6,4)  ,SJ2  ( 16,6,  4),  SJ3(16,6,4),  SJ4(  16,6, 4)  , 

5 TO (16,6,4) ,HG(6) .XBOX (16,6,4) ,YBOX (16,6,4)  , 

3 Z30X(16,6,4),  TOLaST 

COMMDN/MASS/  XMASS(50,50) 

COMMON/MAXMIN/  AM AX ( 5 0 ) , A Ml N ( 5 0) ,ANGLE( 19) , DIP( 19, 6) , 

1 Cl  Q(19,6)  tCPSIK  19, 6)  , CPS  0(19,6)  ,CRKM<19,6),0HAX(50), 

2 DMIN(50)  ,IFL(19,6)  , JMAX,KMAX,SMAX(10  0) . SMIN(  100)  , 

3 TAMAX(50),TAMIN)50),TOMAX(50)  , TO  MI  N(  50)  , TSM  A < ( 1 0 0 ) , 

4 TSMIN(IOO)  ,TVMAX  (5  0)  ,TVHIN(50)  ,VMAX(50),VMI’((50), 

^COM?0  N/MOVING/  XOSA VE , XOB AR, XSAVE, XTB (5) ,V0SAV£,  YOBAR, YSAVE, 

1 ZDSAVE,ZOBAR,ZSA  \E,ZTB(5) 

COMMON/OPTION/  lOPT.J  GRA PH,  KAXLB(  2)  ,K AX  LES, <3  OS , KOAM.KERR, KGWIRl , 

1 K6 WIR2,KRACKS,KRIG ID,  KSHELT.KMIR^.M ASSES.  MOOF.  MSPRNG, 

2 NAS=»R(6)  ,NCALL,  NCASE,  N JOB,  NOUT, NPRIN  T, NRS^ RC  3 ) , NSPRN G.NTRI  A.  , 

3 X30G1E<2)  ,IDD(40) 

COMMON/PRELOD/  PREL00(4)  . „ 

COMMON/SPRING/  FOFX  (60  0 ) , JCURVE  ( 52)  , M AXS  PR,  NP  PS  ( 52  ) , 

^COMMON**/TIREC/  CN,  CT,  NTIRES(  6)  .NTSPRN  ,RH,TLX  ( 3,6)  ,TLY  (6  ),TLZ  (6) , U 
COMMON  /TIRSAV/  DEL TNX (3 , 2, 1 8 ) , DELTNl (3 , 2, 18) , D TTNX ( 2, 1 8) , 

1 0TTN1(2,18)  ,SLI0(  2,18) 

COMMON/WEIGHT/  WEIGHT,  WSTS(  13) 


TRUSK 
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OftTH  IEND/2HEN/ 

NTMIK  = 10 
NJ03  = 0 

100  NJOU  = NJOB  + 1 

REftiD  (5,1)  (100(1)  ,1  = 1,40) 
IFI|00(1).EQ.IEND)  go  to  900 
WRITE  (6,20)  NJOB 
WRITE_(6,21)  (IDD(I),I  = 1,4B) 

K t KK  * 0 

NCftl.L  = 2 
CALL  GEOM 

IF  IKERR.GT.O)  GO  TO  800 
CALL  AERO«0,0.0) 

WRITE  (6,31 
NCALL  = 1 
TINE  = -1. 

IINir  = 0 
IIMA*  = 20 
CALL  TRIM 
IT  =:  0 

DO  130  lA  = 1,KAXLES 
NTT  = NTIRESdA  ) 

00  130  NT  = 1,NTT 
IT  ==  IT  ♦ 1 
DO  13  0 IROL  = 1,2 
gJTJ'^JIfOL.IT)  = OTTNl(IROL,IT) 

XSAVErPxSAVE*^^’  ^ DEL  TNl  ( 1 0, 1 ROL  ,I  T) 

YSAVEX  = YSAVE 
ZSAVEX  = ZSAVE 
DO  15  0 10  = l,HDOF 
150  GENDIXdOl  = GENOISdO) 

READ  (5,4)  KDAM,K3LAST 
IF  (XBLAST.EQ.OT  <BLAST  = 1 
(ICBLAST.EQ.l)  WRITE  (6,15) 
(XBLAST.EQ.2)  WRITE  (6,16) 
(KOAN.EQ.O)  WRITE  (6,8) 

(XOAH.NE.O)  write  (6l9) 


IF 

IF 

IF 

IF 


200 


400 


CALL 

NCASE 

READ 
IF  (P 
WRITE 
AD  = 
PSO  = 
CALL 
AOQ  = 
WRITE 
NORMA 
IF  d 
IF  (N 

DO  70 
NCASE 
AD  = 
KERR 
IF  (N 
1 ( 1. 
nfla; 

IF  (C 
NTRIA 
NTRIA 
IT  = 
00  43 
NTT  = 
00  43 
IT  = 
DO  43 
OTTNIL 
SLIDi: 


OAH 

SOMTAB  (0,0) 

= 0 

inlll  PSOEST, A01,AD2,0ELTA,H,ALT 

SOEST.  EQ.  0 .0)  GO  ID  750 

^(6,6)  PSO  EST,  ADI,  A02, DELTA, W,  ALT 

PSOEST 
AEROd,  0.0) 

AO/12. 

(6,7)  PO,AOO 

* ‘-“"i 

0 NOR  = l,NORNAX 
= NCASE  ♦ 1 

ADI  * FLOAT(NOR-l)  ►DELTA 

DAM.GT.O)  CALL  SUNTAB(1,0) 

L = NTRIAL  *■  1 
0 

0 lA  = l.KAXLES 
NTIRES(IA) 

0 NT  = 1,NTT 
IT  ♦ 1 

O^IROL  = 1,2 

(IRpL.IT)  = DTTNX(IROL,IT) 

IROL, IT)  — 0.0 
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TRUCK 


430 


DO  430  ID=1»3 
DELTMK  IO.IROL*1T»  = 


500 


XSAVE 

YSAVE 

ZSftVE 

XOBAR 

ZOBAR 
DO  500 


600 


7 00 


750 


C 

c 

c 

c 


XSAVEX 
YSAVEX 
ZSAVEX 
XSAVEX 

VCAUFX 
ZSAVEX 
ID  = ItMDOF 


DELTNX  (IO,IROL»I  T> 


SENOISdO)  = GENDIXIIO) 

ROLL  = GENDISCl) 

PITCH  = GEM0IS(4) 

YAH  = SEN0IS(5) 

IINT  = 0 
UMAX  = 20 

IF  IMPRINT. EQ.O)  UMAX  = -1 
NCALL  = 1 
TIME  = -!• 

CALL  BETAIJ 
CALL  EXTRNL 
TIME  = 0. 


C 

C 

c 


111  ^ 


760 


800 


900 


n K UU 

CALL 
HRITE 
CALL 
IF  <X 
CALL 
IF  << 

IF  <K 
PTRIA 
CALL 
PSD  = 

CALL 
IF  IP 
PTRIA 
IF  CP 
NFLAG 
IF  (M 
<OX  = 

HRITE 
IF  IK 
IF  (M 
IF  IK 
CALL 
CONTI 
GO  TO 

WRITE  ^IbI  17?  *^NJOB»  (IDOII)  «I=lt40)  ilYIELDIK)  tK=l»KMAX) 

WRITE  *^(6tiS)  ANGLE  IJ>  »(CPSOIJ»KI«IFLCJtKI,K=l  ,<MAX) 
I6’i9)  (CRKHIJiKJ  ,K=l,KMAXf 
I6,19»  CCIQIJfK)  ,K  = 1,KMAX» 

(6,191  (CPSIQIJjK)  ,K=1,KMAX1 
(6,19)  (CIP(J,k{,K=1,KMAX) 


*(6^101  NJOB,NCASE,NTRI  AL,  AO, PS0,(10,RANGEM,  PIMP, QIMP 
MOTION 

ERR.EQ-2)  go  to  750 
SUMARY 

ERR.EQ.I)  go  to  700 
DAM.EO.O)  go  to  700 
LID  = PSO 

PITER  (CRIT,PTRIAL,  NTRIAL,KOK) 

PTRIALCI) 

AERO(1,0.0)  ^ 

SO.EQ.PTRIALIU)  50  TO  600 

1 f 4 % = A 

SO.EQ.PTRIALIZ) -OR. PS0.EQ.PTRIAL(3 » 1 NFLAG  = 1 
= NFLAG  * 1 
FLAG.EQ.I)  go  to  500 

(6,11)  PS0,RANGEM,CRIT(1> 

OK.Iq.O  .AN&.NTRIAL.LT.NTMAX)  GO  TO  400  ^ ^ 

TRIAL.  EQ.NTMAX)  WRITE  (6,13)  ( PTW  AL  ( I)  , C RI T ( I ) , I = l»  5) 

OK.EQ.l)  HRITE  (6,12)  NJOB  ,NC  A SE  , A D,PS0,  QO  , RANGEM,  PIMP,  HIM* 
SUMTAB(  2,K0K) 

NUE 

200 


WRITE 
WRITE 
WRITE 
WRITE 
CONTI NUE 
GO  TO  100 


END  OF  RUN. 

WRITE  (6,14) 

STOP 

WRITE  (6,2) 

STOP 

FORMAT  STATEMENTS 

FORMAT  ( lHOi56X,21H**»  NORMAL  END  OF  JOB) 
FORMAT  (Z5hSsTART  TRIM  CALCULATIONS.) 
FORMAT  (6112) 
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TRUCK 


5 FORMft 

6 FORMA 


1 

2 

3 

5 

b 

7 


29)1 

29H 

29)1 

29)1 

29^ 

29H 


7 FORMA 
1 28'1 
2 2811 

8 FORMA 

9 FORMA 

10  FORMA 

1 39« 

2 39M 

3 39)1 

A 39)1 
5 39H 
8 39)1 

11  FORMA 

IREOUI 
2 25)1 

<•  24K 

12  FORMA 


f 6F12.1) 
(IIHQBLAST 
ESTIMATED 
AZIMUTHAL 
AZIMUTHAL 
INCREMENT 
YIELD,  KT 
ALTITUDE, 


DATA/ 

PSO,  PSI  = 

ANSLE  1,  DEG  = 
ANGLE  2,  DEG  = 
IN  ANGLE,  DEG  = 

FT 


E15.&/ 

E15.&/ 

E15.6/ 

E15.6/ 

EtS.G/ 

E15.&) 
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= E 15 • 5/ 
= E15,6/ 
= E15.5/ 
= E15.6/ 


1 

1 

2 

3 

A 


7 HO 
391 
39M 
39)1 
39)1 


5 39H 
5 39)1 

13  FORMA 
1 4X, 

Ik  FORMA 

15  FORMA 

16  FORMA 

17  FORMA 


39H 
29)1 
AOfI 
3 3N 
36)1 
i»8)f 
10)1 
16F 


18  FORMA 

19  FORMA 

20  FORMA 
1 4HJ 

21  FORMA 
END 


Ml. I X luuc.,  r I 

T (19H0AMBIENT  CONDITIONS/ 

PRESSURE,  PSI  = £15.6/ 

SPEED  OF  SOUND,  FT/SEC  = E15.6) 

T CieHORESPONSE  RJN  ONLY) 

T UAHOITERATIOM  RUN) 

T <5H1J0B  I2,4X,^5)1CASE  12 , 4X,  6HTRI AL 
AZIMUTHAL  ANGLE.  DEG 
PEAK  OVERPRESSURE,  PSI 
PEAK  DYNAMIC  PRESSURE,  PSI 
RANGE,  METERS 

OVERPRESSURE  IMPULSE,  PSI-SEC  = EIS.S/ 

DYNAMIC  PRESSURE  IMPULSE,  PSI-SEC  = ElS.b) 

T 163HOITERATION  TERMINATED  BECAUSE  ADDITIONAL  BLAST  DATA  IS 
RED/27H  LIUTING  OVERPRESSURE  = E15.6/ 

CORRESPONDING  RANGE  = E15.6/ 

CORRESP  CNDING  GRIT  = E15.6) 

T I3ZH0FINAL  ESTIMATED  RESULTS  OF  ITERATION/ 

JOB  I2,4X,5HCASE  12/ 

AZIMUTHAL  ANGLE.  DEG  = E15.5/ 

PEAK  OVERPRESSURE,  PSI  = E15.b/ 

PEAK  DYNAMIC  PRESSURE,  PSI  = £15.6/ 

RANGE,  METERS  = E15.6/ 

OVERPRESSURE  IMPULSE,  PSI-SEC  = El  5.6/ 

DYNAMIC  PRESSURE  IMPULSE,  PSI  ^ EC  = E15,S) 

T (lOHQMORE  THAN,  I3,16H  TRIALS  REQIREO/ 
8HPRESSURE,8X,4HCRIT/ <2E15.6)  ) 

T (1)10,56X,23H***  ABNORMAL  END  OF  JOB) 

T (23H0BLAST  MODEL  - 1 KT,  SL) 

T (26H0BLAST  MODEL  - 60  M*»l/3  M) 

T llbHlSUMMARY  OF  JOB  I3/1X,«»0A2// 

THE  FIVE  CRITICAL  VALUES  TABULATED  ARE/ 

It)  PEAK  OVERPRESSURE,  PSI/24H  12)  RANGE,  KILOMETERS/ 
(3)  DYNAMIC  PRESSURE  IMPULSE,  PSI-SEC/ 

14)  THE  PRODUCT  OF  ID  AND  13)/ 

15)  OVERPRESSURE  IMPULSE,  PSI -SEC// 

AN  ASTERISK  l»)  INDICATES  A 0UESTI0NA8LE  RESULT// 26X, 

YIELD^ IKT) /IH  , 3X , 9HAZIMUTHAL  /IH  ,3X,ltHANGLE  lOEG), 

T I1HQ,F10.2,6X,6IF9.3,A2)) 

T IlH  ,l4X,6Eli;3) 

T (1H1,40X,38HGE.NERALIZED  TRUCK  SHELTER,  /ERSION  2.0/54X, 

OB  13//) 

T I1H0,1X,9HRUN  ID  = ,40A2,/) 


TRUCK 
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C 


c 

c 


SUBROUTINE  AOAHKOELTHI 

INITIALIZE  INTEGRATION  VARIABLES  FOR  OPEN  ADAMS  METHOD. 

COMMON/ADAM/  KSTARF,NE(J,NIT,(1RC  100)  ♦QRO<6,100)  .QRPdOO)  ,11 012, 

I  TI02,TI024,TI072 

COHMON/OPTION/  lOPT,  JGRA PH, KAXLBI  2)  ,KAXLES,K303,KDAH,KERR,<GMIRl, 

1 <SHIR2jKRACKS,<RiSI0,KSHELT,KHIRES,MASSES.M00F,MSPRNG, 

2 NA  SORf6) ,NCALL,NCASE, NJOB, NOUT , NPR INT, NRSPRC 3 ) , NSPRN G,NT RI AL , 

3 XBOGIEfZ)  ,IDO(i»a) 

NEO  = MD0F*2 

NIT=l 

KSTART=1 

TI02=OELTIM/2.0 

TI012=DELTIM/12.0 

TID2%=OELTIM/24.0 

TI072=OELT1M/720,0 

DO  10  INOEX=liNEa 

ORPCINOEXI^O.O 

00  10  IN0EX1=1,& 

10  QRO{IN3EX1,INOEX)  = Q.O 

RETURN 

END 
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c 

c 

c 


SUBROUTINE  ADAM5I5EN0I S, GEN VEL ,6ENACC ,TIME , OELT IN) 

FIFTH  ORDER  OPEN  AOAHS  INTEGRATION. 

COMMON/AOAM/  KSTART  , NEQl»NIT,  ORC 10  0>  .QRO  (6, 1 001  , QRP  (100)  ,TI  OlE, 

ilUcf  I XU&Hfl  10  rc 


c 

c 

c 


c 

c 

c 


30 

30 


30 


3 0 
30 


1 
2 

3 XBDGIEfZ) ,IDDC46) 

DIMENSION  GENOISC  1),GENVEL(  1),GENACC(  1) 

INITIALIZE. 

DO  500  INOEX=l,MOOF 
ORC INDEX) =GENOIS( INDEX) 

. aR(INOEX»MDOF)=GENVEL(INOEX) 

QROd  , INDEX  )=GENI/EL  (INOEX) 

00  QRD(l  ,INDEX*M00F)=C£NACC<IN0EX) 

INTEG RATE, 

59^1®  *3000t3001t3006,3006) , NIT 

00  TIME  = TIME^OELTIM 

01  IF  «START.EQ,1)  GO  TO  3027 

00  3003  1 = 1, NEQ 
ORPd  )=QR(I) 

DO  30  03  J=l,5 
J6=6- J 
J7=7-J 

03  3RD(J7«I)=DR0(J6,1) 

OA  DO  3019, 3023)  , KSTART 

05  aR( I) =QRpil)+QRD(2, I) *0ELTIM 


NIT=3 

TIME=TIME»OELTIH 
GO  TO  3025 
C 

3006  GO  TO  (3007,3007,3013,3017,  3021)  .KSTAKT 
30  07  DO  30  03  1 = 1, NEQ. 

^3008  QR(I)  =aRP(I)  + (QRD(l,I)«-QR0(2,I))  *TI02 

3009  NIT=NIT*1 

IF  (NIT.NE.5)  GO  TO  3025 

KSTART=KSTART*1 

NIT=l 

GO  TO  3025 
C 

3011  DO  30  12  1 = 1, NEQ 

3012  QR(I) =QRP(I)*(3.0*QRD(2, I)-aRD(3,I) )»TI02 

GO  TO  3025  ; 

C 

3013  DO  30  lA  1 = 1, NEQ 

3 014  aR(I)  =aRP(I)  + (5.0*QRD(l,I)«-8.0»lRD(2,  I) -QRO  (3,  I)  ) *TI012 
C 

3015  DO  3016  1 = 1, NEQ 

3 0 16  aR(l)  =aRP<I)  ♦ (23.  0*aRD(2,l)-16.  0*QRO(3,  I)  4^5. 0 *aRD(  4 , 1)  ) *1101 2 

GO  TO  3025 
C 

3017  DO  3018  1 = 1, NEQ 

3 0 18^QR(I)  =aRP(I)  + (9.0»aRO(l,I)*19.0»aRO(2,I)-5.0*QR!)(3,I)4-QRO(4,I))* 

GO  TO  3009 
C 

3019  DO  30  20  1 = 1, NEQ 


* 
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3 0ZO  aRf  I>  =aRPa)  + <5  5.  0*aRD«2,I»-59.0»QRO(3, 
1 9.0*aRD(5,in*TrD24 

NIT=3 

GO  TO  3025 

30  21  00  30  22  1=1  ^NEa 

3022  aRCI>  =aRP(I)  + (251.0*QRa<ltri+646.0*QRO< 
1 106.  0*QR0I4,  11-19. 0*QRD  (5,1)  >»  TI 

GO  TO  3009 

ONCE  INTEGRATION  HAS  STARTED,  THIS  EQUA 
NIT=1,  KSTART=6. 


I»+3T. 0*aRO<4,I)- 

2^r)-26i».  0*QRO(3  ,I>* 
TION  I S ALWAYS  USED. 


3 0 2 3 0 0 30  24  1 = 1, NEQ 

3024  QRII)  =QRP<I)*(1901.0*QRD<2,I)-2774,  0*QRD<3,I)* 

1 2616.0*QRO(4,  11-1274.  0*CIR[}(5,I)  ♦251.0*aR[)(6,I)  »*TI072 

GO  TO  3025 
C 

c 

3027  KSTART=2 
NIT=2 

TINE=TrM£-DELTlH 

3025  DO  5000  INDEX=l,NDOF 
GENOIS(IMOEK»=aR(INOEXI 

5 0 00  G ENVE L ( INDEX) =Qfi( INDEX* HOOF) 

RETURN 

C 

END 
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SUBROUTINE  AERO  IKA£RO,GSL) 

e ‘ 

c 1,  NEW  BLAST  DATA 

C 2,  RESPONSE. 

COMMON/BL^T/  A,  AO ♦ AO  1,  A 02,  ALT, A 0 » CO  SA, DELTA  ,<BLAST,PIMP,PR, 

COMMON/ CALC/  BET  A (3 , 3 ) , CRIT  15)  , OCG,  DC  GO.  OOMIN  « OVEL  . 

1 FAERO<50)  , FORCE  { 50  J ,GENACC<5Q)  .GENOI  S(^0  >,  GEN  I/EL  (^0)  ,KTIRE» 
“nouEl  TMIN,XBARCM(3, 13),  YAW 

COMMON/LOAD/  ALI6)  , A6(&)iCK<6>,CP<6),  ODCO  OHii)  , 
i EtF;4,6>  , IIS, IS,  JFIR(  16,6,4)  ,<DEaUG,KTSCl»)  ,NBOK, 

I NPS<6,4),PI,PSINFC6),PS00C6);S(16,6.  4),SIGf5). 

^ SjiJ  ? Sj2  (16i994)tS4J3(l&t&«4)fSJ4C16«3f  4)  • 


6 Z30X<ie,6,4),  TOLAST 

COMMON/OPTION/  lOPT,  J GRAPH, <AXLB<2) 
K,HIR2,KRACKS,KRIGID,  KSHELT.KHIRES 


KAXLES.KBOS, KDAM,KERR,KGWIR1, 
MASSES, MOOF,MSPRNG, 


n? M)HLL  I iXMIRE5,MASSES»  MOOF,MSPRNG. 

»NSPRNG,NTRIAl, 

X:j  Obit  (2)  , lODl  40  ) 


IF  (KAERO-l)  100,  150,190 
FIRST  PASS. 

100  CALL  INLOAD 

IS  = 2 «■  KAXLES 
IIS  : 7 * 2*KAXLES 
IIS3  = IIS  ♦ 3 
RETURN 


(ALT,  XI,  SF(!»),RMOO,X3,PO,AO,  X4,KK) 


150  CALL  ATMOS 
SF(31i  = PO 
PO  = 14.696*PG 
SF(51i  = AO/1116.45 
SFIllI  = (W/SF(3))»*  (1./3.  ) 

SF(21t  = SF(1)/SF(5) 

AO  = A0*12.0 

CALL  HYTRUK  ( TO ,RA MGE , PS  0 ,O0 , 3) 
RANGEM  = RANGE*0.3048 
Z = PSO/PO 

PR  = 2.*(4.*Z+7)/(Z«-Z.  ) 

VS  = A0*SQRT(1.0  ♦ 6.C*Z/7.0) 

CALL  SETA 
CALL  ENGULF 
TIMl  = -1.0 
a = II. 

RETURN 

180  00  2(10  I=l,MDOF 
2 00  FAERO  «I.)  = 0.0 

BY-PASS  AERO  AFTER  POSITIVE  PHASE. 
IF  (1  INE.GT.T  CtTDLAST)  RETURN 
CG  = COS(GSL) 

SG  = SINfGSL) 

COSl  = COSA^(BETA(l,l)*CG  ♦ 

CDS3  = C0SA*(BETA(l,2)fCG  * 

COS2  = C0SA*(BETA(1,3) »CG  * 

ALllJ  = ACOSTCOSl) 

ALf3)  = ACOS(COS2) 

AL(5)  = AC0S(C0S3) 

AL<2)  = PI-AL(l) 

ALI4J  = PI-AL(3) 

AL(6)  = PI-AL(5) 

IF  (ICDEBUG.EQ.Z.AND.NOUT.EGl.O) 
COMPUTE  CP. 

DO  220  1 = 1,6 
CALL  DRAGL  ( AL  ( I) , CP  < I) ) 

2 20  CONTINUE 


BETA <2, 1) *SG)  ♦ 
eETA(2,2)*SG)  ^ 
8ETA(2,3)*SG)  ♦ 


SINA*BETA(3,1) 

3INA^BETA(3,2) 

5INA*BETA(3,3) 


WRITE  (6,4)  AL 


FI 

F2 

F3 

F4 

F5 


0. 

0. 

0. 

0. 

0. 
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F6  = 0, 

F7  = 0. 

F8  = 0, 

F9  = 0. 

F10=  0. 

DO  1300  N=l,NBOX 
KT  = KTS(N> 

DO  1100  1 = 1,6 
NPSS  = NPStl.N) 

IF  INPSS.EO.O)  GO  TO  1100 

CPI  = :pci» 

SIGI  = SIGCI) 

II  = <1*11/2 
00  1000  K=1,NPSS 
P = 0 . 

JF  = JFIR<K,I,N) 

Tin  = TIME  - TO«,I,N) 

IF  (T  IM.LT,  0.)  GO  TO  300 

IF  (T  IM.NE.TIMl  ) CALL  HYTRUK  ( T IM,  RAN  GE  , PS,  Q,  2) 

TIMl  = TIM 
P = PS  ♦ CPI*Q 
IF  (JF.EQ.l)  GO  TO  300 
CALL  DIFFL  < K, I, N, T IM, 

300  F = SIGI  *P*S(K,f,N> 

IF  (KOEBUG.EQ.2.ANO.NOJT.EQ.  0)  WRITE  (6,1)  K,  I,  N,  JFIRtK,I,N)  , 
1 TIH,P,a,F 
IF  (II-2I  350,550,450 
350  FI  = FI  - F*YBOX(K,  I,N» 

F2  = F2  * F 

F5  = F5  ♦ F*ZBOX(<, I, N> 

IF  {KT.EQ.2)  F7  = F7  - F*  <YBOX(X,I,  N)  - X8ARC  M(  2 , IS)  ) 

GO  TO  1000 

450  Ft  = FI  ♦ F*XBOX(<,  I,  N) 

F3  = F3  ♦ F 


F4  = F4  ->  F*ZBOX<K,  I,  N) 
IF  (KT.EQ.t)  GO  TO  1000 


F7  = F7  * F* <XBOX (K,I,N)  - XBARCM ( 1 ,IS) ) 

F8  = F8  * F 

F9  = F9  - F*(ZBOX(K,I,X)  - X BARCH  (3  , I SI  ) 

GO  TO  1000 

550  F4  = F4  * F*YBOX<K,I,  Nl 
F5  = F5  - F*XBOX(<,  I,  N) 

F6  = F5  * F 

IF  KT.EQ.l)  GO  TO  1000 

F9  = F9  + F*(:YB0X(K,I,N)  - XBARCM  <2 , IS)  ) 

FIO  = FIO  ♦ F 
10  00  CONTINUE 
1100  CONTINUE 
1300  CONTINUE 

FAEROd)  = FI 
FAER0(2)  = F2 
FAERO  (3)  = F3 
FAER0<4)  = F4 
FAERO (5)  = F5 
FAERO<5)  = F6 
FAERO (IIS)  = F7 
FAERO (I1S*1)  = F8 
FAERO (IIS*2)  = F9 
FAER0<IIS*3)  = FIO 

IF  fKDE8UG.EQ.2.AND.M0JT.EQ. 0)  WRITE  (6,2)  (FAERO(I), 
1 1=1,5)  , (FAERO  (I), I = IIS,IIS3) 

RETUR  N 


1 FORMAT  (4I3,4E15.5) 

2 FORMAT  (35H  GENERALIZED  FORCES  - TRUC K, SMELT £R/ ( 1 OEl 3. 5 ) ) 
4 FORMAT  (3H0AL/6E15.  6/19H  K,  I , N,  JF,  T IM  ,P  , Q,  F ) 

END 
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TH 

SIGHH 
RHO 
THETIl 
DELTIl 
CA 
AHJ 
< = 1. 
= <r 

= ii 


11 


OALLJLN^  ocQUcNCE 

= DENSITY  (SLU&S/FT*»3) 

= 25119  9£  TEMPERATURE  TO  THAT  AT  SEA  LEVEL 
= RATIO  OF  PRESSURE  TO  THAT  AT  SEA  LEVEL 
= SPEED  OF  SOUND  CFT/SEC) 

=„VISCOSITT  COEFFICIENT  ILB-SEC /FT*» 2> 

NORHAL  f 

altitude  greater  than  300000-  FT., 

ALTITUDE  NEGATIVE, 

,2cI?.,S^5i9®i5jS?J^'^®^*2  39,82020.997,154193.i»8  0,  17  3884.510, 

c 4934-  380, 557742.78  0,656167.98  0/ 

c5c?c®  lf%i9®S?®I^S*-®®'»SIGMAB/l.  00,  2.9  7069  58E-0i, 

^®^'®5*5*®®77311E-04,1.7329156E-05, 

14 •121;  ®52?§*'?9*^-3321519E-08,7.765  85  93E-  10, 5.  6 324877E-10  , 

§2 .572  677 1 E— 10/  , ALN/~0.00  356  616 , 0.0,  0.  00 164592  ,0.  O.  — O.OO  ^4688  A . D > n . 
^R;?F45S^9jSi?f?l^?®2A®-®®5486lo,0:002K320,0:001%2024/  ® 

DATA  Q70, 018744176/, RE/2, 0855531E07/, S/198. 72/, 
1AHIJZ/3.7372998E-07/  ♦RHOZ/0.0  023769/ ,1  MZ/518.6  89/ 

IF  CZ)  1,3,2 
K=3 

GO  TO  11 

IFIZ.  GT.3  00000.)  K = K*-1 
HPRIM  =CRE/CRE+Z))»Z 
DO  4 M=l,ll 

IF(HP  RIM-HPRIMB<H) ) 5,6,4 
CONTI  NJE 
N = 12 
H — 

IF(ALHIM))  7,8,7 

T!J  = TN  BCM)+ALH(M)*(HPRIH-HPRIM8(M>> 

* )*fALOG<TMB{  M) /TM) ) » ♦SIGMA6  IM) 

bU  TO  9 

TNsTNBIM) 

^expc-co^chprim-hprihschid/thbcm)  > 

KMU— R HOZ*  SI GMA 
THETA  =TH/TMZ 
DELTA=SIGMA*THETA 
CA=49.02177*SQRT<TH) 

AHD=AMUZ*S0RTITHETA  w3)*  ( (TMZ*S)/<TH*S)  > 

END 
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SU8R0 

COMMO 

1 

I PI 
CONHO 
COMHO 
COHMO 
1 KG 
Z NA 
5 X9 
CONHO 
CONHO 
1 X( 


uriNE  BASE 

N/CALC/  BETA  C3.3  ),CRIT(5),  OCG,  DCGO,ODNIM»  OVEL* 
EJOCSO)  , FORCE!  50  ) i GENACC  (50)  ,GEN  DI S ( SO ) , GEN  DEL  ( 50)  , 
TCH.PTRIALIS) ,R0LL,TIME,TMIN»XBARCM(3, 13) , YAW 
N/OELTAS/  DISP (100) 

N XLAHOAdOO,  44) 


KTIRE, 


Ublt  1C  I * lUUl  U I 

N/PRELOO/  PREL0D(4) 

N/SPRING/  FOFX(6  00)  ♦JCURVE<52),MAXSPR,NPPC(52)» 
600) 


DO  HE  HAVE  ANY  GUY  HIRES? 
IF  (XGHIRl.EQ.O)  RETURN 


SHIFT  SPRINGS. 


IH  = HEAVE  OOF  OF  SHELTER. 

lH=8f2*KAXLES 

IHPI  = PITCH  DOF. 

IHPl=IHfrl 


IHP2  = Z OOF 
IHPZ  = IH  f 2 

IHH6  = PITCH  INDEX  FOR  LAMBDA  MATRIX. 

IHM6=IH-6 

IHM5  = HEAVE  INDEX  FOR  LAMBDA  MATRIX. 

IHN5=IH-5 

IHN4  = Z INDEX  FOR  LAMBDA  MATRIX 
IHM4  = IH  - 4 

□ 0 100  IM0EX  = KGMIRi,KGi(IR2 
J=2*I NDEX-1 

DISPJ=XLAMDA ( J »IHM5)*GENOIS(IH) ♦XLAH0A<J  , IHM5) * GENOI S < IH PI 
1)  * XLAM0A(J,IHM4)*GeNDIS{IHP2) 

ISTART=JCURVE(IN0EX) 

NP=NPPC(INDEX) 

IL=ISTART 
1U=IL+NP“1 
DO  20  I=IL,IU 
20  FOFX( I)=-FOFX(I) 

JPREL=1 

CALL  INTl(PRELOO(JPREL),NP,FOFX(ISTART) ,X<ISTART) .XPREL) 

DO  30  I=IL»IU 
30  FOFXI I)=-FOFX(I) 

JPREL=JPREL*1 
DO  50  INDEX1=1,NP 
XdST  ART)=X  (lSTART)-XPREL+OISFJ 
50  ISTART=ISTART+1 
100  CONTINUE 
RETURN 
END 

BASE 


140 


oonoooo 


SUBROUTINE  BETAIJ 

BETA  MATRIX  IN  TERMS  OF  EULER  ANGLES. 


C 


C 


c 

c 


SUBROUTINE  BETAIJ  CALCULATES  THE  TRAN SFORMATI OM  MATRIX  FROM 
TRE  MOVING  SfSTEM  TO  THE  INERTIAL  SYSTEM,  BETA. 

COHMON/CALC/  EETA  (3,3>  ,CRIT!5»  ,0CG,DCG{»,0DHIN,0V£L 


1 FA£:RO(50)  ,FORCE(50  »,GENACC(50l,GENOISC50),GEMVEL<5  0) 

2 PirCH.PTRlAL  ©) ,R0LL,TIME,TMIN,XBARCH<3,13),  YAH 


iKTIRE, 


COSTH E 
SINTHE 
COSPH I 
S IMPH  i: 

cosps  i: 

SIMPS  i: 


COS(YAW) 

SINtYAW} 

COS<PITCH) 

SIN(PITCH) 

COS(ROLL) 

SINCROLL) 


BETA!  1,1) 
BETA!  (I.l) 
BETAI  3,1) 
BETAC  31,2) 
BETAI2:,2) 
BETA!  3,2) 
BETAI  :L,  3) 
BETAI  23,3) 
BETAI3,3) 

RET UR N 


COSTHE*COSPSI 

COSTHE»SIN?SI 

-SINTHE 

COSPSI*SINTHE*SINPHI-SINPSI*COSPHI 
COSPSI*COSPHI+SINPSI*SlNT HE»SINPMI 
COSTH£*SINPHI 

(SINPSI*SINPHI*COSPSI*SINTHE*COSPHI 

SINFSI*SINTHE*COSPHI-COSPSI*SINPHI 

COSTHE*COS»Hl 


END 


BETAIJ 


141 


c 


G 


BLOCK  OATA 

COMHO N/OATAIN/ 

1 DELTIH.ENDTI 

2 XIYZ,XIH13> 
COMMON/OIMENS/ 
COMMON/’LOAO/ 

EEFI4,6»»  IIS 
NPS(6t<i)  «PI, 
SI  1«16,6,<»)  , 
SJKlb, &,<»}, 
TO  (16,  6,4)  »H 
ZB0X(16t6*4) 
COMMON/SPRING/ 

1 Xf600) 


CGMASS(13»  tCGP0S(3,13>  ,D  AMPFIGOO)  ,DAMPV<600)  ♦ 
M*G,  GS<2)  , ISDAMP«50)  ,MOIMOP,NPOAMP<50»iSLOPE, 
»XI2<13>, XI3  (13),DELTX ,OELTK 1» OPRT , OPRTl ,ENOr X 
MAXQOFt  iAXMAStMAXSP.MROIM 
AL<6), A5(6),CK<6I,CP<6>,ODCOOEfi) . 

«IS«  JFI^(  16,  6,4),  KOEBUG,  KTS(4)  ,N35x, 
PS1NF(6),PS00(6),S(16,6,4) ,SIG(6) , 
SI2(16,6,4),SI3(16,6,4),SI4(1&,6,4> , 

SJ2(  16,3,4),SJ3(16,&,4),SJ4{16  ,6,4)  , 

G(&)  ,X3  3X  ( 16,6,  4)  , Y30X  (16,  6,4)  , 

, TDlAST 

FOFXt6  00)  ,JC'JRVE(5  2)  , M AX  S PR,  NPPO  ( 5 2 ) , 


DATA  Pr/3. 1415926535899/' 

DATA  MAXSP/100/,  MAXSPR/60Q/, 
1 MDIMOP/600/ 

END 


MAXDOF/50/,  MROIM/3/,  MAXMAS/10/, 


BLOCK  DATA 
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c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


SUBROUTINE  BOTTOM 

SUBROUTINE  BOTTOM  IDENTIFIES  ALL  SPRI  N5S  THAT 
HA'/E  "BOTTOMED  - OJT" 

COMMONS  AD  AM/  KSTART,!4EQ,NI  T,CIR(10  0)  ,QRD(5flOO»  , QRP  (10  0)  » TI012, 

I TI 0?iTI024,TI072 

C0MM0N/80TM/  EXPANdOO  » .NBOTOM  (10  0)  .SBOTM  ( 1 00 ) t VEL  ( ID  0) 
COMMON^CALC/  beta  13,3) ,CRIT<5) ,OCG, DCGO,DDHIN, DVEL, 

1 FAE?O(50)  ,FORCE(50)  ,GENACC(50)  ,GENDIS(50),GENI/EL(50)  ,t<TIRE, 

? PIT:h,PTRIAL(5),ROLL,TIME,TMIN,XBARCH(3,13),  YAH 
COMMON/OELTAS/  DISP(IOO) 

COMMON /DIMENS/  MAXOOF, MA X MAS , MAXSP, MROIM 
COMMON/EULC/  POSA V,  PSA V, ROSA V, RSAV, YOSAV, YSAY 

COMMON'INTFLG/  IFIRST 
COMMON  XLAMOA  (100, 44) 

COMMON/OPTION/  lOPT , J GRA PH,K AXLB < 2) ,K AXLES , KBOG, XD AM, KE RR, KGHIRl , 

1 KSHIR2,KRACKS,KRIGID,KSHELT,KHIReS,MASSES,  MOOF,MSPRNG, 

2 NASPR(6) ,NCALL,NCASE,NJ03,N0UT,NPRIMT,NRSPR(3) ,NSPRNG,NTRIAL, 

3 XB05IE<2) ,100(40) 

COMMON/SPRING/  FOFX(600)  , JC'J  RVE ( 52)  , M AXSPR,  NPPC(5  2)  , 

1 X(6D0) 

STEP  1 - TRANSFORM  GENERALIZED  DISPLACEMENTS 
INTO  SPRING  DEFLECTIONS. 

MULT  (XLAMOA,G  ENDIS  (7)  ,OISP,MA  XSP,  MAXDOF-& , MSPRNG,  MDOF-6, 1 ) 

(XLAMCA,GEN1VEL  ( 7) , VEL,M AXSP ,M AXODF- 6,  N SPRNG,  MDOF-6, 1) 

n_  in  nn  TO  8 0 


20 


40 


CALL 

CALL 

IF  (< 

NA  = 0 

DO  20 

NA  = NA 

NS=2» 

DO  40 

OISP( 

OISP( 

OISP( 

DISP( 

VEL(M 

VEL(N 

NS=NS 

CONTI 


M JL  T « /N  wn I 
BOG.  ED.  0) 


I=1.KAXLES 
♦NASPRC I) 

NA*1 

I=l,KBOG 

NS)  = (OISF(NS) +0ISP(  NS*2)  ) /2.  0 
NS  + l)  = (DISP(NSfD*OISP(NS*3)  )/2.  0 
NS+2)=0.0 
NS+3)=0. 0 

S)  = (VEL(NS)  * VEL(NS*2)l/2.0 
S*l)  = ,(VEL(NS*1)  * VEL  (NS*3) ) /2. 
♦4 
NUE 


STEP  2 - CHECK  FOR  MAX,  DEFLECTION. 


80  IHIT=0 

DO  100  INDEX  = 1,  MSPRNG 

S80TM  = MINIMUM  VALUE  OF  X ON  FORCE  DEFLECTION  CURVES. 


IF  (!)  ISP  (INDEX  ).6T.  SBOTM  ( INDEX ) . AND  . D IS  P(  I NDEX)  . LT.EXPA  N(  INDEX ) ) 
GO  TO  100 

(OISP(INDEX)  .LE.SBOTM(INOEX)  .AND. VEL  (INDEX).  GE.  0.  0)  GO  TO  100 
(DISPlINDEX)  .GE.EXPAN(INOEX). AND. VEL  (INDEX). LE. 0.0)  GOTO  100 


C 

C 

C 


IF 
IF 

IHIT=IHITfl 
NB0T0M(IH1T)=1NDEX 
00  CONTI  KUE 

NO  PROBLEM  IF  IHIT=0. 

IF  (I  HIT.  ED.  0)  RETURN 
DO  20  0 INDEX=1,IHIT 
N=NBO TOM(INOEX) 

IF  (MPRINT.GT.O)  HRITE 


9 00  FORMAT  ( 1 IH  AT 
1 28N  BOTTOMS 

CALL  PEBOUN(N) 
2 00  CONTINUE 

SET  UP  RESTART 
NIT  = 2 
KSTART  = 2 
IFIRST  = 0 
RETURN 


(6,900)  TIME,N,DISP(N) 


TI1E  = E13.6,  9H  SPRING  12, 
OUT,  DEFLECTION  = E13.6) 


PROGRAM. 
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BOTTOM 


END 


BOTTOH 
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c 

c 

c 


SUBRDUriNE  CGCALC 
CALCULATE  SYSTEM  C.G.' 


YCGtZCG 
C&HASSC131 


COMHi)N/CG/ 

COMMBN/OATAIN/  CGHASS Cl3 } .CGPOSC 3,13) ,DAMPFI600I , OAMPV( 6001 , 
i 9lbI*£^»fyPJPs5l‘^Sl2),is0AMPC5S),M5lM0P.NPDAMN50);SLOPE; 

2^  ^X.[  YZ.XIl  (13)  ,KI2fl3),XI3(  13)  jOELTX  ,DELT  K 1,  OPRT  , DPRTl  ,EN0f  X 
COHMUN/OPTION/  lOPT, JGRA PH,KAXlS(2) ,K AXLES, K&OS, k5 AH, KE &R,KGH IRl , 
1 Ki;HIg2fKWCKS*KRI6I0*KSHELT,<MIRh,MASsfSiM30F,MSPRNG, 

3 tMSPRNG,NTRIAL, 


C 

C 

C 


C 

C 

c 


c 

c 

c 


122 


c 

c 

c 


c 

c 

c 


124 

126 


WRITE  (6,1) 

ZERO  OUT  VARIABLES  FOR  C.G.  CALCULATIOI, 


TCSH= 

TCGX 

TCGY 

TCCZ 


0.0 

0.0 

0.0 

0.0 


C.S.  CALCULATION. 

00  122  10=1, MASSES 
TCGN=TCGM+CGMASS(I0) 

TCGX=  TCGXfrCGHASS(IO)  '5CSPOS(l,IO) 
TCGY::TCGY*CGHASS(I0)*CGP0S(2,I0) 

TCS2"TCGZ*CGMASS(I3 )*CSP0S(3,I0) 

WRITE  (6,2)  I0,CGWASS(I0),(SGP0S(I01,I0),I01=1,3) 

ADO  IN  RHS  RACKS. 

IF  (i;  RACKS.  EQ.fl  ) GO  TO  126 
INDEX =2»KAXLES 

IF  (XSHELT.GT.O)  INjex=I NDEX+1 

j = in:iex*kracks 

00  124  IO=l,KRACKS 
TCSM=  t:gm*cghass(index) 

TCSX=:T3GX-CGHASS(INDEX)  *CGPOS(l,  INDEX) 
TCGY=:TCGY»CGMASS< INDEX)  *CGPOS (2, INDEX) 
TCGZ!:T3GZ*CGMASS(INDEX)  •CGP0S(  3,INOEX  ) 
CGMASS(J)=CGMASS(INOEX) 

CGPOS:  (1,  J)=-CGPOS(l,  INDEX) 

CGPOS  (2, J )=CGPOS(2,IMOEX) 

CGPOS  (3,  J)=CGPOS(3,  INDEX) 

J=J+1 

INDEX =INOEX+l 
CONTI  NUE 

LET  USER  KNOW  NEW  C.G. 

XCG=TC&X/TCGM 
YCG=1  CGY/TCGM 
ZCG=TCCZ/TCGM 

write:  (6,3)  TCGM,XCG,  YCG,ZCG 
RETURN 

FORMAT  STATEMENTS. 

1 J6H0INDEX,12X,4HNASS,15X,1HX,15X,1HY,15<,1HZ,/) 

2 ruf<nB  T f Ibf  5 X t 4E1 6 • 7) 

3 FORMAT  (17H0SYSTEM  CG  MASS  =,E16.7, 

I 4H  X =,E16.7,4H  Y =,E16.7,4H  Z =,E16.7/) 

END 


CGCALC 
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c 

c 

c 

c 


c 


OIFFRftCTION°LOADIMG’ON'^5L6sED»  RECTANGULAR  ST RJ3TURE. 

I 'll  llil  PRESSURE  OUT. 


100 

200 

300 


COHMD 
t PS 

^ u kJM 

w unnu 

EE 
NP 
SI 
SJ 
TO 
ZB 
T1  = 
T2  = 
T3  = 
T4  = 

1/  = C 
V = E 
DP  = 
OP  = 
IF  (0 
IF  (P 
JFIR< 
RET  UR 
P = 0 
RETUR 
IF  (P 
GO  TO 


, AOtCOSA  tOELTAt^dLAb  I ,Kj,nr,t 
;!?"^?«|E^|ANGEMi,^FI5jjSpA.»S,W,5 

[16,6.4),KDEBUGfKTS<^)  ,NB0X, 

,PS0  0<6>«Sfl6f  6f  4},StG(S)  « 
,4)«SI3tl&«6t4),  SI4(iof6t4)  « 

4 ) « SJ  3 ( 16  y 6 , 4 ) « S J4  ( 16 1 6 * 4 ) * 

(16,6*4)  f Y30X(16«6,4I  , 


N/8LAST/  A,  AD,A.Dl,AD2,ALTiA0iCpSA  ,OELTA,<3LAST  ,PIMP^PR, 
♦ PSOEST.PSOfPO.OflHP, 

fl  / L VHU  A KU  % w r » "W  4T 

F(4,6> ,IIS,IS, JFIR< 

S(6,4),PI,PSINF(6),I 
1(16,6,4)  ,SI2(1&,&,< 

1(16,6*4),SJ2(16,6,' 

(16,6,4) ,HG(B),XB0Xi 
0X(16,  6,4)  , TDLAST 
(AHAXl (f/sJl(<,I,N) 

(4MAX1(T/SJ2(<,I,N) 

(ANAXl  {T/SJ3(<,I,'() 

(AHAK1«T/SJ4(<,I,N) 

K(I)*(T1  ♦ T2  + T3 

ypf . V) 

PSINF(I)  * (PS00(r)-PSINF(I))*V 
DP*PS/PS0 

DC0DE(I).EC1.2)  GO  TO  300 
.LT.OP)  GO  TO  280 
IC,I,N)  = 1 
N 
P 


,1.  0) 
,1.0) 
,1.0) 
,1.0) 
♦ T4) 


1.0  )<‘EEF<1,I) 

1.0) »EEF(Z,i) 

1.0) *EEF(3,I) 

1.0) *EEF(4,I) 


N 

.ST. OP)  GO 
100 


TO  200 


END 


OIFFL 
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SUBR3UTINE  DRAGL  Ul.P>HA,CPI 

DRAG  PHASE  LOADING  ON  SLOSEO,  RECTANGULAR  STRUCTURE. 
DATA  PIl/1. 832595715/ 

IF  (ALPHA. LT.PIIV  G3  T3  100 
CP  = -0.4 
SO  T3  200 

100  CP  = 0.85*COS(i.l25*AL»HAI 
200  RETURN 
END 


DRASL 


ooo 


c 


SUBR3UTINE  ENGUtF 

COHPJTE  ENGULFHENT  TIHES  FDR  ALL  PARTS  CF  SHELTER. 

COMHON/BL  AST/  A,A0»A0l.A02  ,ALT  * A OiCO  SA  , DEL  T A , <9  L AST  , PI  MP.  PR  » 
1 PS,PSOEST,PSO,PO,QIHP.QO,RAMGE,RAN6EH,SF(5I ,3INA,VS,W,Z 
COHMON/LOAO/  AL(&)tA&f6)*JK(&>«CP  (6 ) * ODC  D D£  ( * 

1 EEF(4,6> ,IIS,IS, JFIR (16t6,4> ,KOE0UG, KTS <4) ,H30X, 

2 NPS(6,4) ,PI,PSINFt6),PS00<6) ,5(16,6, 4)|SIS(i) , 

3 SIl(l6,6,4),SI2(16,S,4),SI3(l6,6,4),SI4(lb,i,4) , 

4 SJi(l&,6,4)  ,SJ2(i6,6,4),SJ3(16,6,4  >,  S J4  ( IS  , b , 4 ) , 

5 TO (16,6, 4>,HG(6) ,XB0X ( 16,6,4» ,YBOX (1 6,5,4J , 

6 zaDX(16,6,4)  , TOLAST 


TOLAST  = 0. 

IF  (A.GT.PI/2.  - l.E-&»  GO  TO  400 
IF  CA.LT.-PI/2.  * l.E-6)  GO  TO  1000 
XO  = XBOXd.l,!)  4^  1000. 

TAMA  = TANIAI 

T1  = 1./  (TANA**2  4 1.  0) 

OMIN  = I.EIO 

DO  20  0 N=l,NBOX 

00  20  0 1 = 1,6 

NPSS  = NPS(I,NI 

IF  (MPSS.EQ.O)  GO  TO  200 

DO  100  K=1,NPSS 

T = (1X0  - X80X(K, I,N) » 4TANA  4 ZBOX <K ,I ,NJ ) • T 1 
OS  = (X80X(K,I,N)  - XO  4 T*TANA)*»2  4 <Z80X(K,I,M)  - T|442 
TO(K.I,N»  = OS 
IF  (OS.LT.OMIN)  OHIN  = OS 
100  COMTINOE 
200  CONTI  NJE 

OHIN  = SQRKDMIN) 

TA  = DHIN/VS 
DO  350  N=l,NBOX 
00  350  1 = 1,6 
NPSS  = NPS(I,N) 

IF  (MPSS.EQ.O)  GO  TO  350 
00  300  K=1,NPSS 

TO(K,I,N)  = SQRTITO(K,I,N))/VS  - TA 
IF  (rD(K, I, N).GT. TOLAST)  TOLAST  = TD(X,I,N) 

IF  (KDEBUG.EQ.O ) GO  TO  300 
IF  (TO(K,l,N)  .EG.0.  0)  4RITE  (6,2000)  N,  I,  K 
300  COMTINJE 
350  COMTINJE 
GO  TO  900 


FRONT  OF  TRUCK. 


400  OMIN  = -l.ElO 
DO  500  N = l,NBOX 
IF  (MPS(3,N)  .EQ.O)  GO  TD  500 
IF  (ZBOX  (1, 3,N).GT.0HIN)  OMIN  = ZB0X(1,3,N) 
500  COMTINJE 
600  DO  80  0 N=l,NBOX 
DO  80  0 1=1,6 
NPSS  = NPS(I,N) 

IF  (NPSS. EQ.O)  GO  TO  800 
DO  70  0 K=1,NPSS 

TO(K,I,N)  = ABS  (Z30X(  K,  I,  N)  - DMIN)/VS 
IF  (TD(K,I,N).GT.TOLAST)  TOLAST  = TO(K,I,N) 
IF  (KDEBUG.EQ.O)  GO  TO  700 
IF(T0 (X,I,N) .EQ.O. 0)  RRITE (6,2000)  N,I,K 
700  CONTINUE 
800  CONTINUE 

900  IF  (KDEBUG.EQ.O)  RETURN 
WRITE  (6,2100) 

DO  950  N=l,NBOX 
00  95  0 1=1,6 
NPSS  = NPSd.N) 

IF  (MPSS.EQ.O)  GO  TO  950 

WRITE  (6,  2200)  N,  I , ( TO  (K  , I , N ) , K=1  ,NPS ') 

950  CONTINUE 
RETURN 
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ENGJLF 


REftR  DF  TRUCK. 

1000  OHIN  = I.EIO 

00  11  00  N = l,NaOK 
IF  (N PS<4.N ).EQ.O)  SO  TO 
IF  (Z  30X<1,  4,N>  .LT.DHIN) 
1100  CONTI, "JJE 
GO  TO  600 


1100 

OHIN 


2 0 00 
2100 
2200 


FORMft  r 
FORHi T 
F0RM4 T 

END 


(32H  POINT  INTERCEPTED 
<12HOOEL&T  TINES) 
<2l3,8E15.5/6X»iE15.6) 


= ZB0X(1,4,N) 


AT  TIHE  ZERO  314) 


ENGULF 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 


c 

c 

c 


c 


c 


SUBRDUriNE  EULEROE  LTAT> 
COiPJTE  EULER  ANGLES. 


OELTAT  = TIME  STEP  INCREMENT. 

OUTPUT  - 

ROLL  = EULER  ROLL  ANCLE. 

PITCH  = EULER  PITCH  ANGLE. 

YAU  = EULER  YAH  ANGLE. 

ROLLU  = EULER  ROLL  RATE.  <O~R0LL/O-T) 

PITCHO  = EULER  PITCH  RATE.  <0-PITCH/ 0-T ) 

YAHO  = EULER  YAW  RATE.  (O-VAH/D-T) 

COMMON/CALC/  BETA  C , 3)  ,CR IT  C5)  , DCG,  DC  GO,  OON I N , OVEL, 

1 FA ERO (50), FORCE <50 ),GENACCC50) ,GENOIS(50 ),GENVEL(50 
Z PI TCH,PTR1AL(5),  ROLL, TIME,TMIN,X8ARCH(3,13),  YAW 
COHMON/EULC/  PDS A V* PS AV, RDSAW, RSA V, YDSAY.YSAY 

C0ST!(E=C0S(  YSAV) 

SINTHE=SIN(YSAtf ) 

COSPMI=COS(PSAV) 

SINPNI  = SIN<PSAV  ) 

ROLL,  PITCH,  YAW  RATES. 

ROLL3  = CGENVEL  (1  )»SOSPHI  + GEN  VEL  (5)  •SIN  FH  I)/30SHE 
PITCH  0=GENVELH»)*ROLLD*SINTHE 
YAWD=GENVEL<5)*C3SPHI-GENVEL<1) »SINPHI 

COMPUTE  ROLL,  PITCH,  YAW  EULER  ANGLES. 

ROLL=RSAV  ♦0.5»(RDSAtf  •ROLLO) •DELTAT 
PITCH=PSAV  •0.5*<POSAV  ♦PITCHO)  •DEL  TAT 
YAW=YSAV  fO.S^iYOSAV  +YA HD) •DELTAT 

RSAV  = ROLL 
PSAV  = PITCH 
YSAV  = YAH 
ROSAW  =ROLLO 
PDSAW  rPITCHO 
YDSAV  =YAIO 

RETURN 

END 
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) ,KTIRE, 


EULER 


SUBROUTINE  EXTRNL  COHPJTES  THE  EXTERNAL  FORSES 
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FTIRES  (INDEX) 


RETURN 

END 

EXTRNL 
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i\)^“  **  rvj^«  Mro«~  r“  rvf^  ^•wrNji—  Mivr^ 


S UBRD UT INE  EORCEI 4FI , H, KOOF , INOEXY ) 

FORCEI  CALCULATES  NOMt-ACC ELERATION  INERTIA  FORCES  FROM 
AXLE  MASSES. 


COMMON/CALC/ 

1 F»ERO(50> 

2 PITCH.PTR 
COMMON/DATAI 

1 OELriM.EN 

2 XXYZ.XItC 


uni.o/^  DC.IH  o 1 3 * t CRIT  (3)  • OCG«  DC  GO*  ODM  INt  OVEL  • 
q(50> ,FORCE(5O>,GENACC(50>,GENOISC50),GENYELI50> ,KTIRE, 
H,PTRIAL<5»,R0(LL,  T IM^TMIM,XBA  RCM<  3,13)  , YAH 
DA  TAIN/  C&MASS(13) yCGP0S(3,13) »9AMPF?&qS) tOAHPVt600)( 


L 0tLriM,ENDTIM,G,GS(2l  .ISDAMP(50),MOIMDP,NPDAMP<50>, SLOPE, 

{13),XI3*13),DELTX,0ELTX1.0PRT,0PRT1,ENDTX 
COMMON/OPTION/  lOPT, JGRA PH, KAXL Bl 2) ,K AXLES, K305 , <D AM ,KERR,KG HIRl , 
Ki; HIR2,KRACKS,KRI5 ID,  KSHELTiKH IRES, MASSES,  Mi)OF,MSPRNG, 

NH SPRIG) ,NCALL,NCASE,NJ08,N0UT,NPRINT,NRSPR(3) , NS PRNG,NTRIAL, 
XIJOSIE(2),IOO|1»OI 
DIMENSION  Fill) 

FIST  JitKMJ,XLJ,YLJ,ZLJ,  GXDOTJ  ) = XMJ»  CGEN  VEL  (1)  ♦SENVEL<2)-YLJ 

*{GENVEL (1)**2+&ENVEL<4)**2) 
♦GENVELC5I*4XL J*GENVELf4)+ZLJ 
*5ENVEL( 1))*2. 0»SENVEL(l)«GX0OTJ) 
-GENYELI 4)*GEM  VEL  f 6)*XMJ 

FIPSi;  (J,6DPHI,G0THEr>  = 1X12  (J)  -XIl(J)  )»SENVEL(4) 

*GENVEL<5)-4XI1CJ)  »XI3(J)  -XI2(J) 
)*GENVEH5)»6DPHI 
♦ IXI2<J)  IXISIJ)  *XIHJ))* 
GENVEL<4)*GDTHET 


M = 1 
FUl) 


II  = <XI2(1)  -Kllfl)  *CGMASS(1)*CXBARCMC1,1I»*2 
-XBARCM42, 1)**2)  ) *GENVEL 1 4)  *GENVEL (5) -( X lYZ 

♦ CGMASS(l)*Xa  ARCM  (2, 1 >*XBARCH (3 ,1 ) ) » G EM YEL 1 1 ) ^GENVEL f 41 

2)  = •GENVEL(1)*GENYEL(3)*CGMASS<1) 

♦ GENVEL  f5)*GENYEL(6)*CGMASSCM) 

3)  = GENVELI1)*GENV£L (2)*CGMASS«1) 
-GENVEL(4»*SENVELC6)*CGMASS{M) 

4)  = I XIYZ  ♦CGMASS(l)  *XBARCM<2,1  l*XBARCM(3,l)  ) 

* (GENVELC 1 )♦* 2-GENVEL( 5 )»*2) +4X13(11  -XI 2 41) 

♦ CGMASSd)*  (X8ARCM(2,l)+  + 2-XBARCM4  3,l)**2)  ) + 

GENVEL4  1)*GEMYEL  45) 

FI45I  = CXI141)  -XI341)  ♦CGMASS41 1 • 4XBARCM4 3,  1)  * *2 
-XBARCM(1,1)*^»2)  )*GENVEL41)*GENVEL44)  +4XIYZ 

♦ CGMASS4l)»X8ARCM(2, 1)*XBARCM(3,1I)*3ENVEL44)*GENVEL  4 5) 
&)  = GENVEL<4)*GEMVEL(3)*CGHASSI1)-GENVEL45)+3ENVEL42) 

•CGHASS41) 

CHiASSES.EQ.l)  GO  TO  200 


FI42)  = 
FI43)  = 
FI  (4)  = 


FI(6)  = 


AXLE  CONTRIBUTION, 


M = 2 
DO  10 
FI  41) 


FI42)  = 


FI(3)  = 
FI44)  = 


FI45)  = 


FI4&I  = 


0 INOEX=i,KAXL£S 

=FI41)  + (XI24M)  -XI14M)  ♦CGMASS4M) 

+4X8ARCM41,M)+*2-XBARCM42,M)+*2))+SENVEL(4)*GENVEL45) 
-CGMASS  4M)*XBARCM42,M)*XBARCM43,M)  +G£NYEL4  1)*GENVEL4  4) 

+ 2. 0*GENVEL  41) +CGMASS4M) *X8ARCM42,M) +GENVEL4  6+2  + IN0ZX) 

= FI(2)-GENVEL4 1)  + (G£NVEL43)+CGMASSlM)  + 2. 0 + CGMASS  4M) 
+GENVEL4»+2+rN0EX)) 

♦ GENVEL4  5)*  GENYEL 46)*CGMASS  4M) 

= FI43)+GENYEL41)*GENVEL42)+C6MASS4M) 

-GENVEL  44)*GENYEL46I*CGMASS  4M) 

= FI44)+CGMAS  S4  M)  • XBARCM4  2,  M)  •XBA  RCMIS.M)  *4  GENVEL  41)  *+2 
-GENVEL  45)+*2)  + 4XI34M)  -XI24M)  ♦CG‘1ASS4M) 

+ <X8ARCH(2,M)  • + 2-XaARCM4  3,M)**2 )) •GENVEL  4 1)+GENVEL45) 

+ 2.  0»GENYEL4  4')  *CGMASS4  M)  •XBARCM  (2,  M ) •GEN  YEL  46+2+INDE  X) 

♦ GENVEL  45)*GENWEL  (5+2+INDEX)*  4X  II 4 M) +X 1 3 4 M ) -XI2  4M)  ) 

= FI45)  + 4XI14M)  -XI34M)  +0  GM  ASS  4M  ) * 4 XBARCM 1 3 , M ) **2 

-X8ARCM(1,M)*.*2)  ) •GENVEL  4 1)  *6  EN  VEL  44) +CGM ASS  4M> 
•XBARCM42,M)*XBARCM4  3,M)*GENVEL  44) ♦ GENYE L 45) -2. 0+GENVEL 4 1) 
•CGMASS4M)+XBARaM(3,M)*GENVEL  46  + 2* INDEX) - 2. 0»GENVEL 4 4) 

• CGMASS 4M) • XBARCM 41, M)*GENVEL 46 ♦2+INDEX) -GENVEL  44) 

•GENVEL  45*2+ INDEX)*  (XI 2 4 M) +XI 34  H) -XII  4 M)  ) 

= FI46)  ♦GENVEL44)  *4CENVEL  4 3)  ♦CGMASS4M) +2.  0*CGMASS4M) 
*GENVEL4  6+2*INDEX))-GENVEL(5)*GENVELf 2)  •3GMASS4M) 
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FORCEI 


c 


1 

2 


FI  <5* 
F116» 

1 

00  «=«♦! 
00  KOOF 
INOEK 


2* 

2* 


INDEX »=FIPSI IMtO.OfO. 
INDEXI=FirjtCGN4SS<M) 
X3ARCN<3 ,H) * 


= 7 «■  2*KAXLES 
YsK00F*2 


0) 

,XBARCM<1,*1)  ,XBARCM<2»H)  , 

0.0> 


RETURN 

END 


for:ei 
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I, 


SUSRDUTINE  FSFRNG<FKIRE> 

COMPUTE  SPRING  FORCES. 

OUTPUT  - 

FMIRE  = SPRING  GENERALIZED  FORCES. 
COMMDNZCALC/ 


*3,3)  .CRIT<5),OCG,OCGOfDOMI^,DVEL. 
wr  »GENOIS(50),GENVEL<5 

■oohSIS 


450) ,KTIRE, 


COMMON/DIMENS/  MA«DOF,MAXMAS,MAXSP,  MROIM 
COMMON/FSPOIM/  FORC  (I'OO)  ,V(  100) 

COMMON  XLAMDA(100,44) 


iCOMMON/SPRInS/  FOFX  (60  0),  XURVEI52),NAXSPR,NRPCI5  2)  . 
DIMENSION  FMIRE(l) 


COMPUITE  SPRING  FORCES. 

tR»NS;FORN^OISPL»CE»EOTS^FRO;.  GENER.EIZED  CaOROINATES 

CALL  MULT  C XLAMOA,  G EN  VEL  (7  ) ,V,  MAXSP  «M  AXOOF'*  6.  MSPRNG.  HDOP-^ 
rF*'(J  nrnnr  MAX30F-5,  MSPRNG,  MOOF-6, 1 ) 

l^^IO=  I'MDOn  * WRITE  16,888)  (GENOIS(IO), 

I^^MS^'rnG)’^'^'^’^**^°  (6,868)  OISP(IO) , 10=1, 

888  FORMAT  (1X,10E13.6) 

INTERPLOATE  IN  NON-LINEAR  FORCE-DISPLACEMENT  TABLES. 

DO  50  IN0EX=1,6 
50  FHIRE  {INOEX)  = 0.0 

INDEX  = SPRING  NUMBER. 

INDEX=1 

LOOP  OVER  NON-RACK  SPRINGS. 

AXLE  SPRINGS 
N = 0 

DO  90  INDEX1=1,  KAXLES 
90  N=NtN ASPR(INDEXl) 

DO  100  INOEXl=l,N 
ISTARTrJCURVE(INOEXl) 

NP=NPPC(INDEX1) 

NPV=NP0AMPaNOEXl?^*’  . WP  , X ( ISTART  ) , FOFX  IISTART)  , FORC  (INDEX)) 
IS0=ISDAMP(IN0E  Xi) 

IN0EX=INDEX*1 

(INDEX)) 


— HUiah'HNUtX)  ,NP,X(ISTART),FOFX  (ISTART)  . FOPi 

— T kin  rv  A.  4 i-i  » 


FORC  

INDEX  =IN0EXtl 
100  CONTINUE 


30CIE  SPRINGS. 
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FSFRNG 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 


IF<  KBOG.EQ.  0>  GO  TO  12fl 
DO  110  INOEXl=l,KBO  G 


AVERAGE  VELOCITY 

V0AMP=0.5*(V  CINOEO  ♦V  CINDEX  + 2)  » 
ISD=ISDAMPtINOEXl»N» 

NPV=MP0AMPCIN0EX1*N»  ^ 

CALL  IMTUVOAMPtNPV  .DAMP  V 1 1 SO » *0  AHPF(  ISO) , FD  A M» » 


AVERAGE  DEFLECTION. 

OEFLEC=0.  5*  <0  ISP(IN0EX)*DISP<IN0EX«'2)  I 
ISTART=JCURVECINDEX1+N) 

Ki  P-KiP  f TNnry  if  n ) 

CALL  INTI <OEFLEC,NP.X  <ISTART).FOFX< IS  TART),  F) 

FORC  <INDEX)=0.  5*{F  ♦FDAMP) 

FORC  (IN0EX*2)  = F0RC  (INDEX) 


RIGHT  HAND  SIDE 


INDEX  =INOEX*l 

V0AMP  = 0.5*(V  (INDEX)  ♦V(INDEX*2 
CALL  INTKVOAMP.NPV.OAIPV  (ISO 
DEFLEC=0. 5*(DISP(IN0eX)  ♦DISPl 
CALL  INTI (OEFLEC.NP.X (ISTART) 
FORC  (INDEX)=0.  5*(F*F0AMP) 
FORC  (INDEX*2)=F0RC  (INDEX) 
110  INDEX =IN0EX*3 


),OAMPF(ISO),FDAMP) 
INDEX+2)  ) 
,FOFX(ISTART)  , F) 


INDEX  NOW  POINTS  TO  NEXT  SPRI 
SET  JP  SHELTER  AND  GUY  HIRES. 


NG  IN  TABLE. 


SHELTER  SPRINGS. 

120  IFIKSHELT+KMIRES.ED.B)  go  to  150 
K = KSt(ELTtKHIRES 
INDEX  1=2*KB0G+1 
DO  125  INDEX2  = 1,KAXLE.S 
125  rN0EXl  = INDEXl+NASPR(IN3EX2) 

DO  li»0  J = lfX 

1ST  ART=JCURVE (INDEX  1) 

N PsNPP''  ( I NDEX 1) 

CALL  INT1(0ISP( INDEX) , NP , X ( ISTART) , FOFX ( 1ST ART) , FORC 
NPV=NP3AMP(INDEX1) 

CALL^ INTI (V (INDEX) , N»V, D AMP tf ( 1 SO) , D AM PF (ISO) , FDANP) 
FORC  (INDEX)=FORC  ( I NDEX ) ♦F  DAMP 

RIGHT  HAND  SIDE. 

C AlP  INTlfo  ISP  (INDEX)  , NP,  X ( 1ST  A RT  ) , FOFX  ( ISTART)  t FORC 
CALL  INTI (tf (INDEX) , N P V, DA MPV ( I SO) , □ AMPF (ISO),  FO AMP) 
FORC  (INDEX)=FORC  ( INO*X  ) +F0AMP 
INDEX=IHDEX+1 
lAO  I NDEX 1=INDEX1*1 

N = LAST  LEFT  SIDE  SPRING  NUMBER. 


150  N=IN0EX/2-K8OG 

SET  UP  RACKS  - LEFT  SIDE  FIRST. 


IF  (KRACKS.EQ.O)  SO  TO  *»00 

00^200  IN0EX1=N,NSPRNG 
IsrART  = JCURVE(INOEXl) 

call'*  INTI  (OISP(  INDEX)  . NP,  X(  I ST  ART ) , FOFX  (ISTA  RT)  , FORC 
NPV=N  POAMP(INDEXl) 

ISD=IS0AHP(INDEX1) 


(INDEX) ) 

(INDEX)  ) 


(INDEX) ) 

FSFRNG 
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cnkJ;  .dampf  ciso),FaAHP) 

onn  <INOEX)=FORC  (INOEXI+FOAMP 

200  tNOEK =IH0EX+1 


RIGHT  HAND  SIDE 


00^301)  IN0EX1=N,MSPRN'G 
ISTAR  r=JCURVEIINBEXl» 

NPsNPPCC  INDEX  i) 

ISO=i;>OAMP<INDE  WL) 

9ikk  1[MT1<V(IN0EK»  ♦'*P.V,0AMPV  I1S0),DAHPF  *ISD)»FDA^P) 
FORC  aNDEX>=FORC  ( INDEX  > +FDAHP 
300  IN0EX»INDEX«1 


(INDEX)  I 


TRMSFDRM  BACK  TO  GEfCRALIZEO  COORDINATES, 


AGO  CALL  «JLT  (FORC  iSLAMOA,  FNIRE(T>  .1,  MAXSP,l.MSPRNG.MOOF-6) 

1 RRITE  (6,880)  (FORC  (10), 10=1, 


1 MSPRNG) 

IF  (JOEBUG.EQ.Z.ANO.NOJT.EQ.O)  HRITE(6,  888)  ( F(  IRE  ( 10)  , 10=1 , M03F ) 


JOB  5CINPLETE  - 

RETUR M 

END 


FSFRNG 
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CJUOU  u ooououoooooooooo  uooo  ooo 


SU8R3JriNE  GEOM 


suawuriNE  geom  reaos  shelter-truck  geohetrt 

DATA  AND  INITIAL  CONDITIONS. 


COMHON/CALC/  BETA  (3, 3)  ,CRIT<5)  ,DCG,  CCG0,0)1I;i , DVEL*^, 

1 FA ERO 1 50) .FORCE <50 ) , GENACC<50 1 ,GEN M S<50 ) . GEN EL <50) .KTIRE. 

2 PITCH.PTRlALCS) .ROLL.TIME.TMIN .XBARCMC  3, 13) , YAM 

COHMON/CG/  XCG.YCG.ZCG 

COMMON/CHECK/  JOEBUG 

COHHON/OATAIN/  CGHA SS( 13 ) .CGPOS (3,13) .OAMPF (600) lOAMPV 1600)  , 

1 DELTIM,ENOTIM,G,6S(2)  »ISDAMP(50)  .M  Dl  MOP,  NP  DA  HP  <5  0 ) , SLOPE, 

2 XI  YZ,XI1(13)  ,XI2  (1'3)  , XI3(13)  ,OELTX  ,OELT XI,  DPRT , OPRTl  ,ENOT X 
COMMONZOIMENS/  FAXOOF , MA  XMAS,  MAXSP,  MR H H 

COMMON/OPTION/  lOPT .JGRAPH, KAXLB( 2) ,K AXLES, KBOG, KDAM,KERR,K&MI Rl, 

1 KGHIR2,KRACKS,<RK10,KSHELT,KMIRES,M  ASSES, M30F,HSPRNG,  ^ ^ 

2 NASPR(6),NCALL,NCA'SE,NJOB,NOUT,NPRIN  T,  N RSPR<  3 ) , NS  PRNG,NTR  I AL, 

3 X306IE(2)  ,IOC(40) 

COMMON/PRELOD/  PRELOO(ti)  , 

COMMON  /TIREC/  CN,C  T.-NTI  RES  < 6 ) , NTSPRN  ,RM, T LX(  3,  6)  ,TLY(6)  ,TLZ  (6)  ,U 
COMMONZMEIGHT/  ^EIG^T,MGTS<  13) 


READ  (5,14)  lOPT 
IF  (lOPT.NE.l)  HRIT£(6,20) 

IF  (lOPT.EQ.l)  WRITE  (6,21) 

READ! 5, 14)  KSHELT,<MIRES , KRACKS, K AXLES, KBOG, <RI5 ID 

KSHELT  = NUMBER  OF  SHELTER  ATTACH  SPRINGS. 

(0  = RIGIDLY  MOUNTED.) 

KHIRES  = NUMBER  OF  GUY  MIRES  (MUST  BE  0 IF  KSHELT  = 0). 

KRACKS  = NUMBER  OF  RACKS  ON  LEFT  (PORT)  SIDE  OF  SHELTER. 

(0  = RIGIDLY  MOUNTED.) 

KAKLES  = NUMBER  OF  AXLES  ON  VEHICLE. 

KBOG  = NUMBER  OF  BOGIE  SPRINGS  ON  LEFT  SIDE  OF  TRUCK. 

KRIGID  = RIGID  BODY  FLAG. 

0 = REGULAR  RESPONSE  RUN 

1 = RIGID  TRUCK  RESPONSE,  3 OOF. 

IF  (KRIGID. EQ.l)  MRITE  (6,38) 

NTIRES  = NUMBER  OF  TIRES  ON  ONE  END  OF  EACH  AXLE.  ^ 

NASPR  = NUMBER  OF  SPRINGS  ATTACHING  ONE  SIDE  OF  AXLE  TO  CHASSIS, 

READ  (5,14)  (NT  IRES (10) , 10=1 .KAXLES) 

REA D(  5, 14)  (NASPR(IO)  ,10=1, KAXLES) 

IF  (KRACKS.GT.MROIM)  GO  TO  2400 

IF  (KRACKS.GT.O  ) READ  (5,14)  (NRSPR  (I  0)  , 10=1,  KRACKS) 

NRSPR  = NUMBER  OF  SPRINGS  ON  EACH  RACK. 


(KSHELT. GT.O)  MRITE  (6,31) 
(KSHELT. EQ.O)  MRITE  (6,27) 
(KMIRES.GT.O  ) MRITE(6, 32) 
(KRACKS. EQ.O)  MRITE(6,33) 
(KRACKS.GT.O)  MRITE  (6,34) 
(KRACKS.GT.O)  MRITE  (6,35) 


KSHELT 

KMIRES 

KRACKS 

( 10,  NRS  R<  10),  10=1,  KRACKS) 


MRITE  (6,36)  KAXLES  . ^ . 

MRITE  (6,5  ) (TO,  NTIRES  (10)  .NASPRdO)  , 1 0=  1,  KA  XL  £S ) 

MOOF= 6*2*KAXLES*12*  KRACKS 
IF  (KSHELT. GT.O)  M00F=MD0F+4 
MSPRI«G=2*(KSHELT*KMIRE3»-KBOG) 

00  113  INDEX=1,  KAXL  ES 
113  MSPRHG=MSPRNG  + 2^ASPR(IMDEX) 

IF(KRIGIO.EQ.l)  MOOF=3 
IF(KRIGIO.EQ.l)  MSPRMG=0 
IF  (KRACKS. EQ. 0 ) 30  TO  117 


GEOM 
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oon  cjoo  ooo  oor»  ocro  non  nnnon  nonoo  non 


DO  11  «J  INDEX  = l,KRftCKS 
115  NSPRNC;=HSPRNG*2*MRSPR1(IN0EX) 

SAVE  INDEX  FOR  TIRE-?PRING  DATA. 

117  NTSWM=HSPRNG/2*2 
NSPRM  G=MSPRNG/2 
NSPRN  C.=MSPRNG«-2»KB0G 

STRUCURE. 

NASS  DATA. 

HASSE S=l+KAXLES*XRAaKS 
IF  (KS;NELT.GT.0»  NASSES=MASSES+1 
IF  (KRISIO.EQ.l)  NASSES^l 

DIMENSION  CHECKS  - SET  UP  ON  VARIABLE 

DIMENSIONS,  ******* 

IF  <MDOF.GT.MAXOOF»  GO  TO  2100 
IF  (MSPRNG.GT.MAXSP)  GO  TO  2200 
IF  (NASSES.GT.MAXMA S)  GO  TO  2300 

STRUCTURE  MASS  AMO  POSITION. 

DO  12CI  INDEX=1,MASS£S 

120  READI5,t»)  CGMASS(INDEX), CGPOSd, INDEX), CGPOSf  2, INDEX*, 
I CGPOS  <3,  INDEX) 

C.G.  CALCULATIONS. 

CALL  CGCALC 

X8ARC  M=POSITION  OF  MA  SS  H.R.T.  C.G. 

00  125  INDEX=1, MASSES 
XBARC  M( 1, INDEX) =CGP0S  Cl, INDEX) -XCG 
X8ARD H(2, INDEX) =CGP0S(2,  INDEX) -VCG 
XBARC M(3,1N0EX)=CGP0SC3,INDEX)-2CG 
125  WRITE  (6,3)  INO  EX,  ( )« ARGM  ( 10,  INDEX)  , I C=l,  3) 

INERTIA  DATA. 

READ  C5,4)  XIYZ 
HRITE<6,11)  XIYZ 
00  13G  IK  =1, MASSES 

RE  AO (5, 4)  XI1(IK),XI2  CIK),XI3(IK) 

WRITE  (6,  16)  XI1(IK),XI2CIK),XI3(IK) 

130  CONTINUE 

TAKE  CARE  OF  RHS  RACKS. 


132 

134 


IF  (XRACKS.EQ.O)  GO  TO  134 
INDEX  = 2*-KAXLES 

IF  (KSIMELT.GT.O)  IN0eX=I  NOEX+1 

J=IN0 EXtKRACKS 

DO  132  INDEX1=1,KRACKS 

XBARC  MCI, J)=CGPOS(l,  J)-XCG 

XBARCNCZ,  J)=CGPCSC2,J)-YCG 

XBARC NC3, J)=CGPOSC3, J)-ZCG 

Xll(J)=XIl(INOEX) 

XI2CJ)=XI2CIN0EX) 

XI3(J)=XI3(INDEX) 

J = J*1 

INDEX =INDEX+1 
CONTI  MUE 


COMPUTE  LAMBDA  MATRIX. 

CALL  LAMBDA 
IF  CKERR.GT.O)  RETURN 


SEOM 
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OAMPINS  AND  STIFFNESS. 


140 


150 


C 

C 


IF  (< AXLES. EQ.l > SO  TO 
IF  (KHIRES.EQ. 0 » 30  TO 
KG  = KGHIR2  -KGWIRl  «■! 
READ  15,41  (PREL00{I0» 

WRITE  (6,6)  

CONTI  NOE 
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10=1, KG) 

(PREL0D(I0'),I0=1,KG) 


NON-LINEAR  DAMPING  CURVES. 

IF  (KRIGID. EQ.l)  GO  TO  180 
INOEK  1=1 
WRITE  (6,9) 

00  15  0 INDEX=1,NSPRNG 
READ(5,14)  NP0AMP(  INDEX) 

ISDAMP(INDEX)=IND£X1 

INDEX  2=IN0EX1  + NP0AHP(  INDEX)  - 1 

IF( M3 IMOP.LT. IN0EX2)  GO  TO  2500 

READ(  5,4)  (DAMPV(IO)  ,-D!VMPF(IO)  ,I0  = INOEX  1,  INDEX?) 

WRITE  (6,7)  INDEX,  ( I0,3AMPV(I0)  , OAMPF(IO)  , I 0=IN0£X1,  INDEX2) 

INDEX1=INDEX2+1 

END  OF  DAMPING  LOOP 


180  CONTINUE 

TIRE  DAMPING  COEFFICIENTS. 


185 


READ  (5,4)  CN,CT 
WRITE  (6,8)  CN,CT 

READ  NON-LINEAR  SPRING  FORCE-DISPLACEMENT  CURVES. 
SET  SLOPES  FOR  TRIM  PROCEDURE. 

CALL  INPSPR 
IF  (KERR.GT.O) 


RETURN 

GROUND  SLOPE  ANO  GRAVITY, 


FRONT  WHEEL/SURFACE  CONTACT  POINT. 


190 


REA0(5,4)  RW,U,G 
WRITE  (6,10)  RW,U,G 
REA0(5,4)  GS(1) ,G3( 2) .SLOPE 
MRITE(6,37)  GS  ( 1) , GS(  2)  , SLOPE 

SET  UP  WEIGHT  TABLE  FOR  USE  IN  GRAVITY  CALCULATIONS. 
WEIGHT=0. 0 

MASSE S=MASSES*KRACK  S 
DO  210  INOEX=l, MASSES 
WGTS( INDEX) =CGM ASS ( INDEX ) *6 
210  WEIGHT=WEIGHT*WGTS(INOEX) 

TIME  LIMIT,  CYCLE  TIME, PRINT  FREQUENCY. 

READ  (5,4)  ENCTIM,DELTIM,FLAG 
JOEBUG=FLAG 

WRITE  (6,12)  ENDTIM.DELTIM 
REAO(5,14)  NPRINT, JGRAPH 
1F(NPRINT,EQ.  0)  WRITE(6,39) 

IF(NPRINT.GT.  0)  WRirE(5,40)  NPRINT 

OELTX  = OELTIM 
ENOTX  = 0-03 

OELTIM  = AMINKO.  00015, DELTX) 

OELTXl  = OELTIM 
WRITE  (6,41)  OELTIM, EN3TX 
ENOTX  = ENDTX  - 0.5*OELTIM 
ENOTIM  = ENDTIM  - 0.5*DELTIM 
OPRTl  = FLOAT(NPRINT)*DELTX 

RETURN 
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1 13H 
9 Fosmt 

10  FORMAT 
1 

2 

11  FORMAT 
1 

12  FORMAT 
t 

2 

14  FORMAT 
FORMA  T 
FORMAT 
FORMA  T 
FORMA  T 
FORMAT 
FORMAT 
FORMAT 
FORMA  T 
FORMA  T 
FORMAT 


.51 ) 


E15.6F 


? =,I3,25H  VECTOR  FROM  CG  TO  iASS  =,3E20.6) 

H rURfliir  \brl2*lJ 

5 FORMAT  (22H0AXLE  TIRES  SPRINGS»/« < 15 ,16,18 ) I 

I cSS'JSI*  WIRES  =,^X,5fl3,  5,/,(lX,10E13. 

7 FORMAT  ( 7H0SPRINGI3,12X,1HV,13X,1HF/ 

1 nL2X,I3,lX,2E14.6H 

8 FORMAT  (26H0tlRE  DAMPING  COEFFICI  £N  TS /1 3M  NORMAL 

TANGENTIALE15.6) 

<//40X,28M  OATA  FOR  MON-LINEAR  DAMPING) 

(18H0RADIU3  OF  XHEEL  =,E13.5,5X, 

lOH  GR^#Vlf?^=^E13r5)‘'^°^^''  =.E13.5,5X, 

(14H0INERTIA  5atA*,//,9H  XIYZ  = ,E13.5,// 

,9H  INERTIA  i IX, 3HXI 1, lOK, 3HX 12 , lOX,  3 H< 1 3 ) 

{24HOPROGRAM  WILL  RUN  UNTIL  ,E14.5, 

4flH  SECONDS  OF  RESPONSE  HAVE  BEEN  SOMPJTED.,/, 

35H  THE  TIME  INTERVAL  BETWEEN  STEPS  = ,E14.5,9H  SECONDS.) 
I 6 II 2 1 


16 

20 

21 

27 

31 

32 

33 

34 

35 

36 

37 


(4X,10E13.5) 
(24H0VEHrCLE 
(24H0VEH  IDLE 
{25H  SHELTER 
(19H  SHELTER 
(22H  NUMBER 


TYPE  - WHEELED.) 

TY=E  - TRACKED.) 

RIGIDLY  MOUNTED.) 

MOJNTED  ON,I3,9H  SPRINGS.) 
OF  GUY  WIRES  =,I3) 


(23H  RACKS  RIGIDLY  MOUNTED;) 

(16H0NUMBER  OF  RACKS  =,I3) 

C12H  RACK  NUMBER, 13, 4H  HAS,I3,9H  SPRINGS.) 

(10H0TRUC<  HAS,I2,7H  AXLES.) 

F0RMAT(27H  GROUND  SLOPES  ARE  GSIl)  = ,E  14.  5, 5X,  8 H GS<2)  =,E14.5 
, ,5X,35HT)€  POSITION  OF  THE  SLofe  CHANGE  IS  ,E14.5) 

38  format  (23HORIGIO  RESPONSE,  3 DOF.) 

{52HONO  TIME  HISTORY  PRINTOUT.  SUMMARY  INFORMATION  ONLY.) 
40  format  (34H  PRINT  TIME  HISTORY  RESPONSE  EVERY, 15, 7H  STEPS.) 

INTERVAL  OF  E12.5,  23H  SECONDS  IS  USED 

^ liiliL  o cu  UN  Do  • F 

"2100  WRITE (6,2109) 

2109  F0RMVT(33H  DIMENSION  OVERFLOW  - OOF.  (GEOM)) 

KERR  = 3 
RETURN 

2200  WRITE  (6,2209) 

2209  P0gH'»T»^5H  NUMBER  OF  SPRINGS  OVERFLOW  - IN  GEOM.  (GEOM)) 

K c.  KK  •*'  3 
RETURN 

'2300  WRITE  (6,2309) 

2309  FORMHT(22H  MASS  OVERFLOW.  (GEOM)) 

KERR  = 3 
RETURN 

2400  WRITE  (6,  2409) 

2409  F0RM4T(32H  RACK  DIMENSION  OVERFLOW.  (GEOM)) 

KERR  = 3 
RETURN 

2500  WRITE  (6,  2509) 

2509  FORMAT  ( 4 2HQOIMENSI  ON  OVERFLOW  - DAMPING  DATA.  (GEOM)) 

K E RR  ^ 3 
RETURN 

END 


GEOM 
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SUBROUTINE  GRAVCBET A,F£RAV) 

SUBROUTINE  GRAV  CALCULATES  GENERALIZED  GRAVITATIONAL  FORCES. 

***** 

INPUT  - 

BETA  = TRANSFORMATION  MATRIX. 

OUTPUT  - 

FGRAV  = gravitational  GENERALIZED  FORCE. 

COMMON/ OPTION/  lOPT. JGRAPH. KAXLBCZ) , K AX LES» KB OG , XD AM ,KERR» KGMI R1 1 
KGHIR2,KRACKS,<RIGID,KSHELT,KWIRES,MASSESiM00F,MSPRNG, 


1 

2 !'•«  t o I « r^Wi 

3 XBOGIEfZ)  ,IOO(AO) 
COMMON/MEIGHT/  HEIG  NT,  NGTS(  13> 


NASPR(6> .NCALL,  MCA SE ,NJOB,n5uT , NPR IN T, NRS^R f 3 )» NSPRNG.NTR I AL, 


DIMENSION  BETA(3,  3),FGRAV<1» 

FGRA*  Ci>  =0.  D 

FGRAVTZ)  =VIEIGHT»3ETA(2,  1) 

FGRAVTS)  =WEIGHT*3ETA(Z,2I 

IF  (MASSES. EQ.l)  RETURN 

FGRAV(A»  =0.0 

FGRAV(5)  =0.0 

FGRAV  (61  =WEIGHT»8ET  A(  2,  3 1 

FGRAV  CZ) =0, 0 

FGRAV (fll=HGTS(2l*3ETA (2,2) 
FGRA/ I9)=0.0 

FGRA/ (10) =HGTS(3)*aET A(2,2) 

M = 4 

INDEX =11 
utifi  F I onp 


50 
1 00 


200 


300 


IF  (K 
DO  50 
FGRA/ 
FGRAV 
INDEX 
M = M+1 

IF  (K 
FGRAV 
FGRAV 
FGRAV 
FGRAV 
INDEX 
M = M+1 

IF  (K 
DO  30 
FGRAV 
FGRAV 
FGRAV 
FGRAV 
FGRAV 
FGRAV 
INDEX 


AXLES. LE. 2)  GO  TO  100 
rNOEXl  = 3,  KAXL  ES 
(tNOEX)=0.0 

(IN0EX*l)=HGTS(M)»8ETA(2,2> 

=IN0EX»2 


SHELT.EQ.  0)  GO  TO  20  0 
(INDEX)  = D.O 

<INOEX*l)  = HGTS  (MMaETA(2,2> 
(INOEX  + 21=0.  0 

(INOEX  + 3)=H6TS(M)  'BETA  (2,3) 
=INDEX»4 


RACKS. EQ.  01  RETURN 
0 INDEX1=M, MASSES 
(INDEX)  = 0.  0 

(INDEX*^1)  = 1GTS(IN3EX1)  *BETA(2,  1) 
(IN0EX*2)=HGTS(INBEX1) *BETA(2, 2) 
(INOEX*3I  = 0.0 
(INOEX  + 4)  = 0-0 

(IN0EX«^5)=MGTS(rNDEXl)  •BETA  (2,  3) 


=IN0EXF6 


RETURN 

END 


GRA/ 


162 


ooooooooooooooonooooo 


SuaR9UTINE  HYTRUK  < T, R»P,Q, I0PT» 

BLftSr  OATA  FOR  TRUCK  PROGRAM. 

KBLAST  - 1.  1 KT  AT  SEA  LEVEL,  BASED  ON  8RL  REPORT  NO.  1889  BY 
N.  ETHRIDGE,  P-  22. 

- 2,  60  M Hl/3,  BY  N.  ETHRIDGE,  OCT.,  19T6. 


3IVEN  TIHE, 

ca) . 


RETURNS 


COMHtIN/BLAST/  A,AD,A01,A02,ALT.  AO.COSA  , DEL TA , KBLAST, PI MP.PR, 
I .„E^.l?SOEST,PSp,PJ,ajNf,90.RiN|E,ft»NGEM.Sfin.?IN».VS,H,{ 


loPt  1 - 'iv|jj^s80gJ„5*»fU|3<g'E  return  pe.k  pressure  .P.  ARO 

lOPT  2 - MUST  HAVE  CALLED  IOPT=t  OR  3 FIRST.  3IVEN  TIHE,  RETURNS 
PRESSURE  IP)  AND  DYNAMIC  PRESSURE  li) 
lOPT  3 - GIVEN  reAK  OVERPRESSURE  IP),  RETURN  STOCK  RADIUS  <R) 

AND  PEAK  DYNAMIC  PRESSURE  10) 

FOR  OPTIONS  1 AM)  3,  THE  OVERPRESSURE  IMPULSE  IPIMP),  AND  THE 
DYNAMIC  PRESSURE  IMPULSE  (QIMP)  ARE  ALSO  CALCULATEO.^ 

^^ALSO,  THE  POSITIVE  PHASE  DURATION  IT). 

FORWlL  PARAMETER  UNITS  - R,FT  P,PSI,  D,PSI. 

PIMP,,  PSI-SEC,  OIMP,PSI-SEC. 

LOG-LOG  INTERPOLATION. 

TABLES  ARE  CONVERTED  TO  LOGS. 

PRESS.URE  TABLES  IN  fSl,  RADIUS  TABLE  IN  FT.  TIMES  IN  SECONDS. 

IF  OTHER  UNITS  ARE  USED,  Cl  ANO  C2  MUST  BE  CHANGED  ACCOROINGLT. 
CONVERSIONS  - CKLENGTH)  , C2<PRESSURE) 

COMHDN/BLAST/  A, AO, A01,A02, ALT. AO.COSA .DEL TA . KBLAST, PI MP.PR, 
AE5OEST,PS0,Pa,DIHP,Q0,RANGE,RANGEM,SF«5),SINA,VS,W,i 
DIMENSION  RT<27),PSTt27),CPST<27),CPQT(2n,T0T<22) 

SIi522i»PSTH2  2),CPSTl(22)  ,CPQT1C22>,T[)T1<22) 

DIMENSION  RT21 2 7),  PST2( 2 7), CPST2( 27), CPQT2< 27), T0T2C 27) 

DATA  Cl/1.0/,  C2/1.0/ 

DATA  MTl/22/,  NT2/27/ 

DATA  RTl/  3 310.2,26  75u.0,  2270.1,200  0.  1,  1800.0,1650.0,1545.0. 

1 1190. 0,1110.0,98  2.0, 697.  0,799. 9,700.1, 

2 6 30. 0,580. 1,5  42. 0 ,50  9. 9,4  84.9,462 . 0 / 

. ^ ,5. 0,5. 5,6.0, 7.  0,6.0, 

110.  0,12.0, 15. 0,c0.0, 25. 0,  30.0,  35.  0,  40. 0,4 5.  0,  50. 0/ 

DATA  CPSTl/3.1,3.8,4.'47,5.05,5.7,6.25,b.8,7.3,7.78,8.22, 

1 9.1  ,9.85,  11.4,12.  9,15.  , 18.  4,21.75,25.  ,26.3,31.5, 

2 34.  9,  38.2/ 

DATA  CPQTl/5, 5, 6.62,7.7,6.7,9.7,10.65,11.5,  12.4, 13.2, 

1 13.  9,15.25,16.45,18.6,20.^,23.7,28.4,32.9,37.3,41.9, 

2 46.  5,  51«,  55.7/ 

DATA  T0T1/-407,  .379, . 358 ,. 34  0, .329, .316, .3 0 7,  . 299 , . 291 , 

1 ,E35,.2  73,.26  4,  .2  46,.2o7,.22&,.256,.186,.16  6,  .155, 

2 .151, .150, .152/ 


DATA  RT2/2247.38,2043.96,1886. 48,1761.81,1650.26, 1564.96, 

1 f«&-|2»Ii2C.6,13  6i,55.1312.34,1259.6  4,1177.32,1105.64, 

2 104  3.2  9,990.81,  9 51.43,908.78,8^.34,8  44.  0 1,  798.67,746.38,707.01, 

3 659.44,600.39,554.46,521.65,467.8/  ur.ut, 

DATA  PST2/3.,  3.5,4.  ? 4'. 5,5.  ,5.  5,6.  ,6.5  ,7 .,7.  5,  8.  , 9.  ,10.  , 11.,  12.  , 

113.  ii4.  ,16.  , Is.',  20. ,22. ,25. ,30. ,3  5., 40., 50./ 

DATA  CPST2/4.02  *4. 5 6,  4.96 ,5.  39, 5.28 ,6.22, 6. 54 , 6.  96. 7.26,7.62,  7.80, 
I 5 *5. 9.  0 4, 9. 5, 10.,  10. 55,  11.,  11.  46.12.0  3,12.76,13.^,14. 62, 15.71, 

c 1 7m  1o«cO«05«c3«Pc/ 

DATA  CPftT2/ 8- 54  ,9.  2 4,  9.  86, 10.  53,  10.  93, 11.  51  ,12.,  12, 47,12.85, 

1 13,  36,13.  61, 14.  21, 14. 97, 15. 54, 16. 16  a 7. 14,  17.  5 4,  18.25,18,97, 


DATA 


11,  36,13.  61,14.21,14.97,15.54,16.16,17.14,17.5  4,  18.25,18,97, 
20.14,21,34,22.39,24.0  2,26.9,29.53,^.66,38./ 

T ^ y B T 2 /•  3 8 3 , .365 , . 349, .336,. 324, .3  15  ,.303,  .295, .287,  .279, 

. 271, .259,. 247,.  2 36,.  227,.  2i9,.  211,. 2 05,.  199,.  166,.  iH, 

.171,,  160,  .147,  .135:,.  127,  .113/ 


DATA  KBL/-^1/ 

IF  KBLAST. EQ.KBL)  GO  TO 
K8L  = KBLAST 
GO  TO  (20,60),  KBLAST 
20  NT  = NTl 

00  50  1=1, NT 
RTII)  = ALOGIRTKI)  ) 
PSTCI)  = ALOG(PSTIII) ) 
CPSTCI)  = ALOGICPSTIID) 
CPQTII)  = ALOGCCPaTlID) 
50  TOT  (I)  = ALOGITOTII  I) ) 

50  TO  100 
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c 

c 

c 


60  NT  = NT2 

DO  70  1=1 *NT 
RT(I»  = ALOGCRT2CI)  ) 
PST(I)  = SLOG(PST2Cin 
CPSTCI)  = ALOG<CPST2<I)l 
cpani)  = ALOG<CPaT  2<  I) ) 
70  TOTCI)  = ALOG(TDT2(in 

100  GO  TO  <200,  300,7001  » lOPT 


C 

c 

c 


c 

c 

c 


c 

c 

c 

c 


OPTION  1. 

200  RR  = R/  (Cl*SF<in 

IF  (RLbLf!RTlNT>.OR.RL.GT.RT(U ) GO  TO  800 
220  CALL  INTIX  <RL,NT,R  T,-J , FR,  2 > 

PP  = EXP(PST<J)  ♦ FR't  (PST<J*1)  - PSTtJH) 

P = PP*SF<3)»C2 

250  CPS  = EXPICPSTIJI  ♦ FR* <CPST <J+1»  • CPSTIJIll 
X = PP*C2/14.696 

PO  = <36.74/C2»*X**2/<7.0+X)  , 

CPO  = £XP<CPQT<Jl  + FR*l  CPtJT  ( J + 1)  - CPQT<J))) 

TO  = EXP(TOT<J»  *■  FR*(TDT<J*1I  - TOT(J)n 

TS  = TO  - 1.0/CPS 

TSQ  = TO  - 1.0/CPQ 

PSl  = PP*EXP<-CFS*TS)*CPS 

PQl  = Pa*EXPI-CPa*TSQ> *CPQ 

a = PQ*SF(3)*C2 

PIHP  = PP»I1.0-0.5»EXPC-CPS*TS))/CPS 
aiKP  = Pa*(1.0  - 0.5*E<P<-CPQ*TSQ))/CPO 
PINP  = PIMP'*C2*SFI2>*SF<3> 
aiNP  = aiHP*C2*SF(2)*SF( 3) 

T = TD*SF<2» 

RETURN 

OPTION  2. 

TT  = T/SFI2> 

IF  <TT,GT.TSQ»  GO  TO  400 
Q = PQ*EXP(-CPQ*TT) 

IF  <TT.GT.TS»  GC  TO  450 
P = PP*EXP(-CPS*TT) 

GO  TO  600 

IF  (TT.GT.TOI  GO  TO  500 
a = PQ1*<TD  - TT) 

P = PS1*(T0  - TT) 

GO  TO  600 
P = 0. 

a = 0. 

P = P*SF<3)*C2 
a = a*sF<3)*c2 
RETURN 

OPTION  3. 

700  PP  = P/  (SF  (3)*C2) 

IF  <Pl':Lt!pST<1).OR.PL.GT.PST(NT)  ) GO  TO  500 
750  CALL  INTIX  NT,  PST,  J,  FR,  1 ) 

R = EXPCRT<J)  * FR»<RT(J*1)  - RTIJ))) 

R = R*SF<1)*C1 
GO  TO  250 


300 


400 

450 

500 

600 


BETONO  TABLE  LIMITS. 

8 00  WRITE  <6,  2000)  R,  RL  ,RT<  1)  ,RT  < NT) 
IF  <RL.LT«RT  <NT  ))  RL  = RT  (NT  ) 

IF  <RL.GT.RT<1)  ) RL  = RT<1) 

RR  = EXP<RL) 

R = RR*C1*SF<1) 
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CO  TO  200 

900  WRITE  (6,21001  P, PL ,PST(  1 ) , PST(NT) 
IF  (PL.LT.PSTd  n PL  = PST(l) 

IF  IPL.6T,PST<NT)»  PL  = PST(NT) 

PP  = EXPIPL) 

P = PP*SF(3»*C2 
CO  TO  75  0 


20  00  FORHRT  (30H0RANGE  OUT?  OF  BOUNDS  IN  HYTRUK  4E15.67 
1 20»  YALUE  AT  UNIT  U3E01 

2100  FORMAT  C 33H0PRESSURE  OJT  OF  BOUNDS  IN  HYTRUK  4E15.6/ 
1 20N  VALUE  AT  LIMIT  USED) 

END 
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SUBRSUTINE  INLOAO 

INPUT  OATft  FOR  BLAST  L3AOINS  ON  TRUCK-SHELTER- 
^OMMON/BLAST/  A,AD, ADI, A02,ALTiAO,COSA,OELTA.<BLAST,PIHP,PR, 

COMMON/LOAD/  ALf  & )t  A6  < 6 ) , CK (6  > ,CP  C6  ) « DDCOOE  (5>  , 

1 EEF(5»,6»,IIS,IS,  JFIR(16).S,4),KDEBUG,KTS(4>  .'IBBX, 

2 NPS(6.41,PI,PSINFC6),PSOOi6),S(16,6,tfl,SIS(&), 

3 SI1(16,6»4I  ,SI2(l&,6,4),SI3«t6,6,4»,SI4(l&,S,4), 

4 SJ1C16,6, 4»,SJ2C16,S,4),SJ3(16,6i4)»SJ4ll6»5t4) , 

5 T0(16,6,4) ♦HG(6) ,X83X<l&,6,4),YaOX (16,&,4»  , 

3 ZB0X<i6,6,4) , rOLAST  * » t 

NUMBER  OF  BOX  CONFIGURATIONS. 

READ  (5,2)  NBOX.KDEBUG 

TRUCK  OR  SHELTER  CODE  FOR  EACH  BOX. 

READ  15,21  (KTS  (N),N=l,NBOX) 

WRITE  (6,  1050)  NBOX 
WRITE  (6,1200) 

DO  30  N=1«N80X 
KT  = KTS(N) 

IF  (KT.EQ.l)  WRITE  (6,1250) 

IF  (KT.EQ.2)  WRITE  (6,1260) 

CONTI  NUE 
WRITE  (6,1300) 

DO  200  N=l,NBOX 
DO  20  0 1=1,6 
IF  (I  .ME.  2)  GO  TO  8 0 
FAR  SIDE. 

NPSS  = NPSd.N) 

NPS(2,N)  = NPSS 
IF  (MPSS.EQ.O)  GO  TO  200 
DO  50  K=i,NPSS 
X80X(K,2,N)  = -XBOX  (K,L,  N> 

YaOX(K,2,N)  = Y80<(K,1,N) 

Z80X(K,2,N)  =ZBOX(K,l,N) 

S(K,2,N)  = S(K,1,N) 

= SI1(K,1,N) 


N,KT 

N,KT 


50 

80 


SIKK  ,2,N) 

SI2(K,2,N)  = SI2(K,1,N) 

SI3(K,2,N)  = SI3(X,1,N) 

SI4(K,2,N)  = SI4(<,1^N) 

GO  TO  200 
CONTI  NUE 

REAO(5,2)  NPS(I,N) 

NPSS  = NPS(I,N) 

IF  (MPSS.EQ.O)  CO  TO  200 

DO  100  K=1,NPSS 

READ  (5,1)  XB,YB,Za,S(Ki  I,N) 

5^52^  SI1(K,I,N)  ,sfz(K,I,N),SI3(K,I,N)  ,SI4(<,I,N) 

WRITE  . (6s 1400) _N. I, K, Xa , YB,Z B, S (K , I , N ) , SIl < K,  I , N ) , SI  2 ( K , I , N) 


1^  SI3 (K.I.N) ,S14(K, I, 


100 

200 


L 3X3 

XBOX(  K,  I,  N) 
YaOX(  K,I,N) 
ZBOX(  K,I,  N) 
CONTINUE 
CONTI  NUE 
RETURN 


= XB 
= YB 
= ZB 


N) 

- XCG 

- YCG 

- ZCG 


1 FORMAT 

2 FORMAT 
1050  FORMAT 
1200  FORMAT 
1250  FORMAT 
1260  FORMAT 

IHICLE) 
1300  FORMAT 


(6F12.  1) 

(6112) 

(44H0NUM8ER  OF  AERODYNAMIC  BOX  CONFIGURATIONS  = 
(21HOBOK  DESIGNATION  CODE/16H  BOX  NO.  CODE) 
(1X,I6,6X,I2,3X,31HB0X  RIGIDLY  ATTACHED  TO  VEHICLE) 
(1X,I6 ,6X,I2,3X,45HB0X  (SHELTER)  NOT  RI3IDLY  ATTACHED 


13) 


TO  VE 


1 

1400  FORMAT  ( 313,  4E15.  6,  IX,  4E 15.  6) 
END 
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SUBROUTINE  INPSPR 


5SSS8I1;§?!?n's/ 

COMMON/ OPTION/  IOPT» JGRflPH»  KAXLBI2) ,KAX  LES.K30S. XOAM.KERR.KGWTRI 

? MfirTpHl  ^?ftnV7  N^ASE,  NJ0  8,NOUT,NPRIN  T,  NRSPR<3)  » NSPRNG.NTRIAL  f 
O A3  1 Clef  flu  umul 

iCOMMON/SPRlNG/  FOFX  C600  > , JCURVEI52)  ,MAXSPR,  NPPCC52), 

COMMON  /TIREC/  C>t. C T,  NTI  RES C6>  ,NTSPRN ,RH,TLX < 3,  6 1 , T LY  t6 > ,TLZ  ( 6>  , U 

IPOIMTrl 
WRITE  f6,17> 

INCLJDE  TIRE  DATA. 


130 


2Q0 


210 


300 


00  200  INDEX=1,NTSPRN 

READ  (5,14)  NP 

NPPCI INOEX)=NP 

IEN0=IP0INT+NP-1 

IF  (IEND.GT.MAXSPR)  go  to  1000 

WRITE  (6,15)  INDEX 

lO-IPOINT**’  (IO),FOFX(IO),IO=IPOINT,  lEND) 
0o”l80  101=1, NP 

WRITE  (6,23)  I01,X(I0),F0FX(  10) 

10=10*1 

JCURtfE( INDEX )=IPOI  NT 
IP0IMT=IEND*1 
CONTI  NlJE 

SAVE  DATA  FOR  SPRING  BOTTOMING  ROUTINE. 

N = K SH  El.  T * KW  IRES  ♦KSO  G 
NA=0 

00  210  I0UM=1,KAXLES 
NA  = NA  ♦HASPR(IOUM) 

N = N*NA 
INOEXl::! 

00  30  0 IN0EX  = 1,N 
M=JCU RVE(INDEX) 

SBOTM  (1;NDEX1)=X(M) 

SBOTM  (INDEX1*1)=X(M) 

MM=NPPC:(  INDEX)  FH-l 
EXPAM (INDEXl) =X(MM) 

EXPAN  (INDEXl  + l)  =X(MM) 

IF(KB0G.EQ.  0)  GO  TO  30D 

f GO  TO  300 

INOtXl=INDEXl*2 

SB0TM(IN0EX1)=X(M) 

S80TMIINDEX1+1)=X(M) 

EXPAM  (IN0EX1)  = X(MN) 

EXPAN (INOEXl*!) =X(NN) 
index 1=IN0EX1*2 


RACK  DATA, 

K=NSP RNG*N 
N = N+l 

DO  40  0 INOEX=N,MSPRNG 
N=JCJRVE(INDEXl 
SBOTM ([NDEXl)=X(H) 
SBOTM (IN0EX1*K)=X(M) 
MM=NPPC(INDEX)*M-1 
EXPAM(IN0EX1)=X(MM) 
EXPAN (INDEXl+K) =X(MM) 
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INFSPR 


400  INDEX  1 = IN0EX1*1 


RETURN 

^10  00  WRITE  (&,18)  MAXSPR 
KERR  = 3 


RETURN 

FORMA  T 
FORMAT 
FORMA  T 
FORMAT 
FORMAT 
IR)  f 
I 
Z 
3 

23  FORMAT 
END 


4 

14 

15 

17 

18 


l6Ft2.1l 

(7HoipRING.I3*llX,lHXjl3X,4HF(X>  > 

f 1 HD.  4I1X  .7BM  OmTA  for  NON-LINEAR  SPRINi»S»i 

(10(2H  M»48H  NON-LINEAR  SPRING  DATA  TA3LE  OVERFLOW. 


10(2H 

10(2H 

10(2H 


* ),20H 
*),34M 
*),2t3H 


COMMON  BLOCK  SPRING*/*  ^ . 
MAXSPR  = DIMENSION  OF  FOFX  ANO  X. * /» 
CURRENT  DIMENSION  =*I4» 


( tZX, 13, IX, 2E14.5  » 


lINPSP 


INFSPR 


168 


oooooo 


SUBROUTINE  INTt  (X,  N)T.  XT  . YT.  R) 

SUBROUTINE  INTI  IS  A LINEAR  INTERPOLATION  ROUTINE. 

GIVEN  A VALUE  X,  INTI  RETURNS  TNE  CORRESPONDING  VALUE  Y. 

= 9J??PSIO^„Or..><*TA3LE  AND  Y-TABLE  IN  CALLING  PROGRAM. 

XT  = TABLE  OF  X-VALUES  IN  CALLING  PROGRAM. 

F V;yALUES  IN  CALLING  PROGRAM. 

R = RETURN  VALUE  Y. 

COHMON/CINTl/  IIMAX.IINT 
DIMENSION  XT(NX),  YTCNXI 
DATA  C/0.1/ 

IF  («-XTfl))  1*9,2 

1 g = XTJ  21 ♦( (X-XTl2)»/(XT«l>-XTI2)) )*IYT  Cl  )-VT(2) I 
IF  (A0SC(X-XTC1»)/(XTC1)-XT  <NX))>.LT.C>  RETURN 
IIMT  = IINT  ♦ 1 

IF  CIINT.EQ.IIMAX*!)  WRITE  C6,20» 

IF  (IINT. GT. UMAX)  RETURN 

WRITE  (6,8)  X,R,  (XT( I) ,I=1,NX) 

RETUR  N 

2 IF  (X-XT(NX)  ) (»,11),3 

3 R=YT(  NX-ll  + C (X-XT(NX-l) ) / (XT  (NX) -XT  (NX-1) ) ) *(  YT  ( NX)-YT  ( NX-1 ) ) 

IF  (A  BS  ( (X-XT(NX)  )/(XT(l)-XT  (NX) ) ).LT.C  ) RETURN 

IINT  = IINT  ♦ 1 

IF  (I INT.EQ.IIMAXtl)  WRITE  (6,201 

IF  (IINT. GT. UMAX)  RETURN 

WRITE  (6,8)  X,R,  (X T ( I ) , I = 1,NX » 

RETURN 

4 DO  5 1=2, NX 

IF  (X-XT(I))  7,6,5 

5 CONTINUE 

6 R=YT«  I) 

RETURN 

7 R=VT(I-1) ♦(X-XT (1-1)1 *(YT(I)-YT(I-1)) /(XT(I)-Xr( I-l) ) 

8 FORMAT  (9H  X-VALUE  E14.5/35H  OUTSIDE  TABLE.  Y-VALUE  RETURNED  = 
1.5/lOH  X-TABLE  =/(6El'4,5)) 

9 R = YT(  1) 

RETURN 

10  R = YT(NX) 

RETURN 

EO^FORMAT  (5 8H0*** **** ♦* WARNIN G - SUBSEQUENT  MESSAGES  SUPPRESSED  I 
END 


INTI 
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100 

200 

300 


SUBROUTINE  INTI*  IX.MX.XT* J«FRj<l 
SPECIAL  1 DIMENSIONAL  {nTERPOLATION  ROU 
X - INPUT  VARIABLE. 

NX  - NUMBER  OF  TABLE  ENTRIES. 

LoSIr^INOEX  in  table  which  BRACKETS 
FR  - FRACTION  OF  DISTANCE  BETWEEN  J AND 
• C OOP 

1,  table  in  ascending  order. 

2,  TABLE  IN  DESCENDING  ORDER. 

DIMENSION  XT<1> 

C K “ 1.  • 

IF  <<.Ea.2>  CK  = -1. 

J = I 

IF  f(  X-XTlin^CK)  300,300.100 

FR^^^Hx^-  XT<J)>/<XTfJ«^l)  - XT<i)l 

RETURN 

END 


TINE. 

J+1  ENTRIES. 


INTIX 
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c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


SUBRClUriNE  LAMBDA 

"‘’DUE'’ro''!E!iERA“zES'^Olk*u!E!lE;fiJ  " “I SPLACEMENTS 

COMMDN/CG/  XCS.rOG.ZCG 

COHMDN/OATAIN/  CGNAssdS)  fCGP0Sf3«131  iDAHPFf^OO)  .DAHPVfAnnt 

h SHJI??fNDTp,G,63l2»aSDAMPI58),MMMOP;NPCAM^S50f;sKpk 

COMMDiN/ OPTION/  lOPT,  JGRAPHf  KAXLB(2)  » K AXLES » KB05.  KD AH. KERP.XGMT)?i 

COMMON  /TIRe6/  CN,CT,NTIRESC6I ,NTSPRN,RM,TLXf 3,51 ,TLY<6),TLZ*6) ,U 

IF  fXAXLES.EQ.il  GO  TO  1000 
NOOF=MDOF-6 
DO  50  INOEX=1,NOOF 
DO  50  INOEXl=i,  MSPRNG 
50  XLAMOA(INOEX1,1NDEXI  = 0.  0 
rooF= I 
<GHIR1=0 
KGHIR2=0 

LOOP  OVER  AXLE  SPRINGS. 

WRITE  <6,61 
INDEX=l 
10=1 

DO  75  IDUM=1,KAXLES 
N=NASPRf lOUM) 

IF  (M.EQ.O)  GO  TO  75 
DO  70  IDUM1=1,N 

5l52S5j^i.'^tX*'^‘-^*^LZ,SLX,SLY,SLZ 
MgITE f&,2)  IO.RLX,RLY,RLZ,SLX,SLY*SLZ 

A = ( SL  X- RL  X I’/TL*’ ‘ ^ ^ ^ ‘ ^ 

B=(SLY-RLYI /TL 
SLX=SLX-CGPOS(l,IDUM»ll 
SLY=SLV-CGPOSf2,IOUM*ll 
XLAMDA(IN0EX,I00F)=SLX*8“SLY*A 
XLAMDAf  INDEX*  1D0F«-1 1=8 

RIGHT  HAND  SIDE. 

XLAMOAfINOEX*!, lOOFl  =-XLAMOAfINOEX, lOCF) 

70  INDEX  =INOEX  + l^*^°'^'^  ♦!  ) =XL AMDA  ( INDEX,  I OOF+1) 

75  ID0F=i30F+2  ^ 

SAVE  TIRE  DATA- 

DO  100  I0UM=1,KAXLES 
READ  15,1)  TLY8,TLZa 
NTT=MriRES<IDUM) 

si'srsfii.sjv* 

WRITE  (6,7)  TLX  (MT,IOUM),TLYB,TLZB 
TLXCMT.IOUM)  = TLX(NT,IDUM)  - XCG 
IF  (NT.GT.l)  GO  TO  80 
TLY(IDDM)  = TLYB-YCG 
TLZdOUMl  = TLZ8  - ZCG 

write  16^8)  TLX(NT,IOUM),TLYfIOUMl  ,TLZ<IOUM) 

BOGIE  SPRINGS. 

IFIKBOG.  EQ.  0)  GO  TO  120 
WRITE  f6,12) 


60 

100 
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DO  112  I0UM=1,KB03 

REftDI5i9)  KAXLBCrOUM)  ♦ >(BOGIE(  IOUH> 

rFCKAKLBi  IOUM).Gr.O  .AND.  KAXLetIDUMJ  .LT.  KAXLES)  GO  TO  110 
WRITE  (b.lO)  KAXLB(  lOUMJ  « XBOGIEdDUHl 
KERR  = 3 
RETURN 

110  WRITE  (6. Ill  IO,KAXLB(IDUM) .XBOGIEIIDUNI 
112  10  = 10  ♦ 1 

SET  JP  LAMBDA  FOR  BOGIE  SPRINGS, 

DO  115  I0UM=1,K80G 
J=KAXLBCIOUM) 

I00F=2*J-1 
AXLE  A. 

TL=1»0,  A = a,0,  B=1.0 

SLXA=XB0GIE  (lOUH) 

XLAMDAfINDEX,IOCFI=-SLXA 
XLAMD  A<IN0EX,I00F«^1)-~1.  0 

RIGHT  HAND  SIDE. 

XLAMD  AJINOEX*1,IDOF>=SLXA 
XLAMDAfINDEX*!,  IDOFU  I =- 1. 0 
IN0EK=INDEX+2 

AXLE  B. 

TL-1.0*  A = 0.0,  6-1.0 

XL AMO  A<INOEX,IOOF*2l  =-SLXA 
XL AMO  A(INOEX,IOOFf3) =-l.  0 

RIGHT  HAND  SIDE 

XLAM0A(INDEX  + l,I0OF*2)=  SLXA 
XLAMD  A(IN0EX  + 1,  IDOF 
115  IN0EX=IN0EX*2 

KSl  = FIRST  SHELTER  DOF,  ROLL,^ 

KS2  = SECOND  SHELTER  OON  HEAVE. 

KS3  = THIRD  SHELTER  DOF,  PITCH. 

KS4  = FOURTH  SHELTER  OOF,  FORE  AND  AFT. 

120  CONTINJE 

KS1=2*<AXLES*1 
KS2=KS1*1 
KS3=KS2*1 
KSA=KS3*1 
ID0F=  KSl-1 
K = KAXLES  + 1 

IF  SMELTER  IS  RI6I0LT  ATTACHED,  THEN  NO  SHELTER  SPRINGS. 

IF  KSHELT.EQ.O)  GO  TO  200 
K = K+1 

LOOP  OVER  NUMBER  OF  SHELTER  SPRINGS. 

WRITE  16,31 

DO  125  1NDEX1=1,KSH£LT 

REA0<5,1I  RLX,RL'r,RLZ,SLX,SLY,SLZ 

WRITE  C6,2)  IO,RLX,RLY,RLZ,SLX,SLT,SLZ 

f L"=°SaRT ((SLX-RLXI  •♦2*( SLY-RLY) **2*( SL Z-RLZ)  **2I 

A = ISLX-RLX)/TL 

B=  CSLY-RLY) /TL 

C=(SLZ-RLZI/TL 

SLX=SLX-CGPOSCl,KI 

SLY=SLY-CGPOS<2,K) 
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c 

c 


c 

c 

c 


c 

c 

c 


125 


c 

c 

c 


c 

c 

c 
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SLZ=SLZ-CGPOSI3tK» 

XLAMBAIINOEX.KSI)  =SLX»B-SLY*A 

XLAMDACINDExIkS2)=8 

XLAMD A( INDEX, KS3)=SLV*S-SLZ»8 

XLAMDA(INDEX,KS4>=C 
RIGHT  HAND  SIDE. 

X LAND  A (INDEX +1, KSl » =- XLA  MOA (INDEX.  KSl) 
XLAM3A(INOEX*lUs2»  = XL  AMOA  (INDEX  ,KS2) 
X L A M3  A ( I NOEX +1 , KS3>  = XLAMDA  ( INDEX.  KS  3) 
XLAMD  A(  IN0EX+1,KS4»  = XL AMDA  ( iNDExJ  KS4I 

INCREMENT  SPRING  COUNT. 

INDEX =INDEX*Z 
IDOF=  KS4 

GUY  HIRES, 


IF  (X 
WRITE 
KGHIR 
KGMIR 
DO  15 
REAO( 
WRITE 
10  = 10 
TL  = Sa 
A = (SL 
B = (SL 
C = (SL 
SLX=S 
SLY=S 
SLZ=S 
XLAMD 
XLAMO 
XLAMD 
XLAM3 
XLAMD 
XLAMD 
XLAMO 
XLAMO 
INDEX 


HIRES. EQ.O)  GO  TO  200 
(6,5) 

1 = 10 

2=KGHIRl-lfKWIRES 
D INDEX1=1,KHIRES 
5*1)  RLX,RLY,RLZ,SLX,SLY,SLZ 
(a, 2 1 lO.RLX, RLy,RLZ*SLX,SLY,SLZ 

!J[*JSLX-RLX)**2*(3LY-RLY)**2*(SLZ-RLZ)*»2I 

Y-RLY)/TL 
Z-RLZ)  /TL 
LX-CGP0S(1,<) 

LY-CGP0S(2,K) 

LZ-CGP0S(3,K) 

A(IN0EX,KSl)  =SLX*B-SLY*A 
A(IN0EX,KS2)=8 
A{ IN0EX,KS3)=SLy*3-SLZ*8 
A(IN0EX,KS4)=C 

!J<INDEX*1,  KSl)  =-XLAM0A(IN0EX,KS1  ) 

JINDEX  + 1, KS2) =XLAM0A(INDEX,KS  2) 

=XLAM0A(  index,  KS3) 

=XLAMOA(  INDEX, KS4) 

= 1 NO  fcX  2 


RACKS . 


200  IF(KRACKS.EQ. 0)  RETURN 
WRITE  (6,4) 

SAKE  PORT  INDICES  FOR  STARBOARD  RACKS. 

IOOFS=IDOF*l 
IODF= I30FS 
INDEX S=INOEX 
K S = K 

DO  40(1  INDEX1  = 1,KRACKS 
K = K+1 

NUMBER  OF  SPRINGS  FOR  EACH  RACK. 

N=NRS FR(INDEXl) 

DO  30G  INDEX2=1,N 

gEAD( 5,1)  RLX.RLY.RLZ, SLX,SLY,SLZ 

1 0 = 13  I0»RW»«Ly,RLZ,SLX,SLV,SL2 

A=(SL  xIrlX) '^'-Z»*»2) 
3 = (SLY-RLY)/TL 
C=(SLZ-RLZ)/TL 
RLX=RLX-CGPOS  (1,K) 

RLY=RLY-CGP0S(2,K) 

RLZ=RLZ--CGP0S(3,K) 
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XLftMD A( INDEX, I00F)=^LY*A-RLX*8 
XLftMaftCINDEX,  IDCF+lJ=-ft 
X LAND  A f INDEX, ID0Fi‘2>=-3 
XLAMO  A(  INDEX,IDCF  + 3)  =RLZ*B“RLY*C 
XLAM0A(  INDEX, IOOF*i*)=RLX*C-RLZ»A 
XLAMO ACINDEX,ID0F*5>  =-C 
IF*KSHELT,EQ.  01  G3  TO-  300 

SHELTER  IS  NOT  RIGIDLY  ATTACHED. 

SLX=SLX-CGP0S(1,<SI 
SLY=SLY-CGP0S<2  ,KS) 
SLZ=SLZ-CGP0S(3,KSI 
XLAMOA<INOEX,KS1»  =slx*b-sly*a 
XLAM0A(IN0EX,KS2>=8 
XLAMDA(IN0EX,KS3)=SLY*C-SLZ*B 
XLAMD  A(INDEX,KS4I  =C 


INCREMENT  SPRING 
3 00  INDEX  =1N0EX  + 1 
400  I00F=ia0F+6 


:0UNT. 


TAKE  CARE  OF  STARBOARD  RACKS. 

LOOP  OVER  RACKS- 

00  60  0 IN0EX1  = 1 ,KRACKS 
N = NR5  PRf  INOEXl) 

LOOP  OVER  SPRINGS. 


450 

500 

600 


DO  50 
XLAMO 
XLAMD 
XLAHD 
XLAMO 
XLAMD 
XLAMO 
IF  (.< 
XLAMO 
XLAHD 
XLAMO 
XLAMD 
I NOEX 
INDEX 
I00F= 
lOOFS 


0 INDEX2 

AdNDEX, 

AUNDEX, 

AdNDEX, 

AdNDEX, 

AdNDEX, 

AdNDEX, 

SMELT. EQ 

AdNDEX, 

AdNDEX, 

AdNDEX, 

AdNDEX, 

S=INOEXS 

=INDEX*1 

IOOF+6 

=IDOFS*6 


IDOFI  =-XLAMOA(INOEXS,IDOFS ) 

IOOF  + 1 ) = -XLAM0A  < INOEXS.IDOFS*!) 
IOOF«-2)=  XLAMDA(  INDEXS,  ID  CF  S*2) 
ID0F*3)  = XLAMCA  <INDEXS,  ID0FS*3> 
IDCF+41  =-XLAMD  AdN0EXS,ID0FS  + 4» 
IDOF+5  ) = XLAMOA<  INOEXS,  ID0FS*5) 
.0>  GO  TO  450 
KS1)=-  XLAMDAdNOEXS,KSl» 
KS2)=XLAM0A<  INOEXS,  KS2) 
KS3)=XLAM3A  dNDEXS,<S3) 
KS4)=XLAM0A (INOEXS, KS4) 

♦ 1 


RETURN 

RIGID  CASE  - TIRE  DATA 

1000  READ  (5,11  TLYB,TLZ8 
NTT=MTIRES(1) 

READ(5,1)  (TLX<NT,1> ,NT=1,NTT> 

00  10  10  NT=1,NTT 

WRITE  (6,7J  TLXCNT,  U ,TLYB,TLZB 

TLXCNT.l)  = TLX(Nr,l)  - XCG 

IF  (NT.GT.l)  GO  TD  1010 

TLY(l)  = TLYB-YCG 

TLZ(l)  = TLZB-ZCG 

1010  WRITE (6,81  TLX(NT,l»,TLy (1),TLZ(1> 
RETURN 


FORMAT  STATEMENTS. 

FORMA  T(6F12.1) 

FORMAT(33H0ShIlTCR* SPRING  ATTACHMENT  POINTS/S X, 6 HSPRING ) 
FORMA T<30H0RACK  SPRING  ATTACHMENT  POI NTS/6X ,6HS PRING) 
FORMAT(34H0GUY  MIRE  SPRING  ATTACHMENT  POINTS76X,  6HSPRING) 
FORMAT  (25H0SPRING  ATTACHMENT  POINTS) 

FORMAT  (5H0TIRE,  6X,6E15.5> 
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d FOilH»T  (1X,9HTIRE-CC6I»1X,6E15.5» 

9  FORHRT  (112«F12.il 

10  FORMAT  «1H0,10(2M*  ),45HILLEGflL  VALUE  FOR  BOSIE  AXLE  NUMBER. 
10A)t 

1 /,21X,6HAXLE  X ATTACH  =,E13.5> 

11  FORMAT  (SX,IZ,6X,I2,E19.61 

12  FORMAT  C31H08OGIE  SPRING  ATTACHMENT  POINTS/'/bX,  6HSPRING»2X, 

1 4HA  KLE*9X,1HX) 

END 
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SUBR3UriNE  MASSM 

SUBROUTINE  MASSM  CALCULATES  GENERALIZED  MASS  MATRIX. 


30MM0 

1 FA 

2 PI 
COMMO 

1 OE 

2 XI 
COMMO 
COMMO 
COMMO 

L KS 

2 NA 

3 XB 


N/CALC/  BETA (3,3) ,CRIT(5) ,0CG, DC  GO, DDMIN,  OVEL , 

ERO«50) ,FORCE(50),GENACC(50) ,GENOIS (5 0 ) , GEN VEL (5  0) ,KTIRE, 


TCH.PTRtAL  (5)  .ROLL,  TIME,TMIN,XBARCM(3,lh.  YAH 
N/OATAIN/  CGMftSS(t3> ,CGP0S(3,13) ,OAMPF(&06)  ,DAMPV<600), 
LTIM,ENDTIM,  G,GS(2)  , ISDAMP(  50 ) , HOI  MOP,  MP DA M P ( 50  ) ,S LOPE, 

YZ,  XI1(13)  ,KI2(1'3) , XI3(13)  ,DELTX  ,0ELTX  1,  Df*RT  ,DPRT1,EN0TX 
M/DIMENS/  MAX00F,MAXMAS,MAXSP,  MR  DIM 
N/MASS/  XHASS(50,50) 

N/OPTION/  I0PT,J GRAPH, KAXL8(2) ,K AX LES, KBOG, XOAM ,KERR, XGHIRl , 
HIR2,KRACKS,KRIGI0,  <SHELT,KHIRES,MASSES,  MOOF,MSPRNG, 
SPR(6),NCALL,NCASE,NJD3,NOUT,NPRINT,NRSPR(3) ,NSPRNG,NTRIAL, 
0&IE(2),IDO(40) 


ZERO  OUT  ARRAY. 


100 


XOOF= 
IF(K0 
DO  10 
DO  10 
XMASS 

TRUCK 


MOOF 

0F.LT.6)  KD0F  = 6 
0 INDEX=1,KD0F 
0 INDEX1=1 ,KOOF 
(INDEXl, INDEX)  =0.0 


0 0 20 
200  XMASS 
1 

XMASS 
DO  30 
XMASS 
X MASS 
XMASS 

1 

3 00  XMASS 
1 

XMASS 
XMASS 
IF  (M 

axles 


0 J=l, MASSES 

(1.1)  = XI3(J)  fCGMASS(J)*(XBARCH(l,J)**2*XBARCM(2,J)**2)» 
XMASS(1,1) 

(1.5)  = -XIYZ 
0 J=l, MASSES 

(1.5) =XHASS(1, 5) -CGMASS(J)*XBARCM(2,JI*XBARCM(3,JI 

(2.2)  = XMASS(2,  2>+CGMASS(J) 

«4,4)=XMASS(4,i»)  *XI1(J)  +CGMASS  ( J ) * ( XB  ARCM  ( 2,  J ) »»  2+ 
XBARCM(3,J)**2) 

(5.5)  = XMASS(5,5)  »^XI2(J)  ♦CGMASS  ( J )♦(  XBARCMI 1,  J)**2+ 

XBARCM(3, J)**2) 

(3, 3»=XMASS(2, 2) 

(6.6) =XMASS(2,2) 

ASSES. EQ.i)  GO  TO  7 00 


K00F= 
00  40 
M = IN3 
<00F= 

PSI. 


0 INOEX=l,KAXLES 

EXH 

KDOF»l 


XMASS  (l.KOOF)  = XI3(M) 
XMASS (<DOF,KOOF)  = XI3(M) 


KD0F=K3OF+l 

XMASS  (l,KDOF)=CGMASS(M)  •XBARCMd.M) 
XMASS (3,KOOF)=CGMASS(M) 

XMASS  (4,<OOF)=-CGMA  SS  ( M)  * XBARCM( 3, M) 
400  XMASS (KDOF,KOOF)=CGMASS(M) 

CHECK  FOR  SHELTER. 

IF  (KSHELT.EQ.O)  GO  TO  500 
M = Mn 

PSI. 

KODF=KOOF*l 

XMASS  (l.KOOF)  = XI3  (M) 

XMASS  (KDOF.KDOF)  = XI3(M) 


MASSM 
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KOOFstOOF+l 

XMASS:  (l,KOOF»=CGiASS<M)  •XBARCMd.HI 
XMASS;  I3,KD0F)=CGHASS(M» 

XMASS;  t4,KD0Fl=-CGMASS  (H>  •XBARCMC3,M» 
XMASS;  IKOOF,KDOF)=3G(1ASS<H1 

PHI. 

KD0F=  KD0F*1 

XMASS:  «i»»K00FI  = XII  CM> 

XMASS  IKDOF,KDOF»  = XIKMJ 


K00F=  KDOF+1 

XMASS  (!|»KOOF)=C&MASSfM»*X0ARCMC2,M> 
XMASS  (5,  KOOFIs-CCMASS  <J1)  » XBARCM(1,M) 
XMASS  d,KOOFJ=CGMASSIMI 
XMASS  (KOOF,KDOFI  = CGMASS(M) 

RACKS  . 

500  IF  (K RACKS. EQ.O)  GO  TO  700 
KX  = 2*  KRACKS 
00  60  0 INDEX  = 1,  KX 
M = M+1 


KD0F=  KDOF^i 

XMASS  (1,KD0F»  = XI3IM> 

XMASS (KDOF, KOOF»  = XIStM) 


K00F=  KDOF*l 

XMASS  Cl,KD0F)=-CGMASS(iJ*XBARCM<2,M) 
XMASS  <?,  KDOF)  =CGMASS(M) 

XMASS  C5,KD0F>=CGMASSf M) ►XaARCM«3tM> 
XMASS  <KD0F,KD0F)=CGMAS3<M) 


KOOF=  KOOFfrl 

XMASS  ll.KOOF) =CGMASS(M)  »XBARCM(1,M) 
XMASS (3,K00F)=CGMASSCM» 

XMASS  (4, KDOF)=-CGMASS<M) »XBARCH<3,M) 
XMASS  (KOOF,KDOF»  = CGMAS5fM) 

PHI. 

K00F= KDOF+1 

XMASS (4,KOOF)  = XII  IMI 

XMASS  <<00F, KDOF)  = XIKM) 

THETA. 

K00F=KD0F*1 

XMASS  (5, KDOF)  = XI2  (M) 

XMASS  CK00F,KD0F)  = XI2<  M> 


KODF=KOOF*1 

XMASS  (5,KDOF)=-CGMASS(1) •XaARCM<l,M) 
XMASS  (4*  KDOF)=CGMASSfM)*XBARCMI2,H) 
XMASS  C6,KOOF)=:CGHASS(M) 

XMASS  (KD0F,KDOF)=CGMASS<M) 

SYMMETRY. 


MASSM 


700  M = MOaF-l 

00  800  r = l,M 
Ji=I*l 

DO  80  0 J = Jl,MaOF 
eoo  XNASS (J« I)=XMASS(It 

RETURN 

END 

H ASSN 
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SUBROUTINE  MATXIN  (A»  MZ,  MAXZ,  INDEX) 

«t  : fKI  SrSSf.?? 
i55e5  ; 

= 2 IF  THE  INRUT  NATRIX  IS  SINGULAR. 

= 3 IF  MACHINE  ERROR  OCCURRED.  IF  PROGRAMMER  WISHES  TO  LOOP 
BACK  FOR  ANOTHER  TRY,  BE  SURE  TO  RESET  THE  INPUT  MATRIX. 
IS  OUM^  DIMENSIONED.  THIS  SUBRO'JTIME  REFERS  TO  IT  As'a 


X A 


MATRI 

SINGLE  DIMENSIONED  VARIABLE  BY  FINDING''fHE'PR0PER''sU8SCRiPT^ 


COMMDNZHATDIM/ 
DIMENSION  ATI) 


KOH50),ROH<50> 


N = NZ 
MAX=M A<Z 
<OL«J.  ) = 1 
DO  10  1 = 2, N 
KOL<i;)=KOL{I-l)*l 
10  CONTINUE 

00  120  K = 1,N 
L = N-X  «■! 

M = <OL  <1) 

J = 1 

IFIN-K)  190,60,20 
20  AMPy=  ABSIAlD) 

DO  40  1 = 2, L 

IF  (AMPY-  ABS<A(1)))  30,40,40 
30  J = I 

AMPY=  A8S(A<I)) 

M = KOL  ID 
40  CONTINUE 

IF(K0L<1)-M)  50,50,  50 
50  KOL IJ )=KOL(l) 

KOL(l)=M 

60  IF( A( J))  ZO, 200,70 
70  AMPY=AIJ) 

DO  80  1=2, N 
IS=(I  -1)  '►MAX^J 
ROH(I-t)=ACIS)/AMPY 
IC=II“2)  •MAX 
IS=IC •J 

iT=icn 

A(IS»  =A(IT) 

CONTINUE 
ROH(N)=l.  0/AMPY 
IC=IN -1) •MAX 
I5  = IC+J 

ir=ic<-i 

Alls)  =A<  IT) 

00  10  0 1 = 2, N 
AMPY= A(I) 

DO  90  J=2,N 

IS=  IJ  -2)  •MAX  + I-1 

IT=(J-l) •MAX*I 

AIIS) =AIIT)-AMPY*R04I J-1) 

90  CONTINUE 

IS=CN-1) •MAX+I-1 
AIIS)  -AMPY*ROH(N) 

IQO  CONTINUE 

DO  ill)  J = 1,N 
KOLIJI =KOLIJ+t) 

IS=IJ--1)  •MAX  + N 
A (IS)  =ROH(J> 

110  CONTINUE 
KOL(N)=M 
120  CONTINUE 

DO  17CI  K=1,N 

„ IF(KOL(<)-K)  190,170,130 
130  DO  15D  I=K,N 

IF(KOL(I)-K)  190,140,150 


179 


MATXIN 


140  00  15  0 J=1,N 
IS=  tl  -1)  * MAX^J 
IT=CK-1) *HAX+J 
ROHCl »=A(IS) 
AdSI  =ldIT» 
ACIT) =R0H<1) 
150  :;0NTIN'JE 
M = KOL  (<> 
KQL(K»=K0L(I) 
KOLII )=M 
GO  TO  170 
160  CONTI NJE 
INDEX  =3 
GO  TO  160 
170  CONTINUE 
INDEX  =1 
180  RETURN 
190  INDEX=3 
GO  TO  180 
200  INDEX=2 
GO  TD  180 
END 


NATXIN 
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c 

c 

c 


SUBROUTINE  HAXI 

RECORD  MAXIMUM  AND  MINIMUM  VALUES. 

-COHMON/DHTAIN/‘-CGMisS(t!jncl^Os{3:i3)SAMPf(606>;DAMPV(60Q) 

J S^t5^5?f’i?U”55i5?i2».isOAMP(53)“M6lMDP;NPD4M^<5fl>;SLOPE; 

COMMO  JJ'MAXMIN/  AMA)<<50>.AMINf50»,ANGLE(19>,CIP(13»6»  , 

I SUii|s^»|CPSia(  19<,&5jCPSOC19,6I,CRKM<i5,5»,DHAxHo>  , 

I *'^'^''’^x'^”*^?SMAX < 10  0).  s MINI  10  0)  , 

’00n™«/M0VINC/  X0|JI,|,|<0B«5XSA«E.KTB<5,,YDSAVE.Y0BAR.YSAVE. 
COMMON/OPTION/  IOPT » JbRAPH,KAXLB<2) »K AXLES .K80S, <0 AH,KERRiKGMIRl. 

i '^SHELT.KHIRESiNASsIs,  M05f,MSPRNG, 

XBIjGIcIZ)  tIDDl4Q) 


C 

C 


00  101}  INDEX=1,MD0F 

IF  tSIENOISdNOEXI.LE.OlAX  IIMDEX)  ) GO  TO  10 
DMAX  (INOEX)=GENDIS<INDEX) 

TDMAX  IINDEX)=TIME 

10  IF  CS!:N0IS(INDEX).G  E,OMIN(INDEX)  ) GO  TO  20 
DMIN  IINDEX)=GENDIS  (INDEX) 

TOHIN  [INDEX)=TIME 

(INDEX))  GO  TO  30 
VMAX  [IN0EX)=GENVEL  (INDEX) 

TVMAX  tINOEX)=TIME 

TVMINaNOEX)=TIME 

JLi*'rJ?.SPiFNOEX).LE.AMAX<INOEX)  ) GO  TO  50 
AMAX  [1NDEX)=GENVCC(INDEX) 

TAHAX  aNOEX)=TIME 

50  IF  (GEMACC(INOEX).GE.ANIN(INDEX)  ) GO  TO  100 
AMIN  i[INDEX)=GEKACC  (INDEX) 

TAMIN  l[INOEX)=TIM£ 

100  CONTINUE 

OVERTURNING  DATA. 


IF  (TIME  .GT.O.O)  GO  TO  1050 
□ = ItlOO. 

OVEL  " 0.0 
DOMIN  = 1000. 

TMIN  - 0.0 
OCG  : 0.0 

10  50  IF  (DVEL.GT.  0.0)  GO  TO  1500 
DP=D 

IF  (MASSES. GT.l)  GO  TO  1070 
ODl  = <TB(1)  - X03AR 
DD2  = XOBAR  - XT8(2) 

D = AHIN1(D01,D02) 

GO  TO  1150 
D = ICOO. 

DO  UCO  1 = 1*4 
DX=XTB(I*1)-XTB(I) 

DZ  = ZT  El(I*l>-ZTB(I) 

1““'  ”/ wT<Dx.*U;5??ei!  -“*• 1“  • 

IF  (DD.LT.O)  0=00 
CONTI  MUE 
OCG  = D 
IF  (O.GE.ODMIN)  GO  TO  1200 
ODMIW  = D 
TMIN  = TIME 

It  ‘I !.'<£•  EQ.O.)  DCGO  = D 

1200  IF  (D.LE.O.O)  DVEL  = AMAXl  ( ( DP-D) /O  ELTI M,  0.  00  II 


10  70 


1100 

1150 
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MAXI 


c 


1500  IF  IHftSSES.EQ.l)  RETUR'< 

DO  220  INDEX  = 1,MSPRNG 
IF  <QISP(INOEX).UE.SMA< (INOEX)) 
SMAX  IINOEX»=DISPf INOEX) 

TSNAX (INDEX) =T1ME 

210  IF  CDISP(TNOEX)  .SE.SMIN (INDEX)) 
SHIN  (INOEX)=OISP(INDE<) 

TSHIM (INOEX)=TIMe 
2 20  CONTI  N’JE 


RETURN 

ENO 


GO  TO  210 
GO  TO  220 


MAXI 
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c 

C 

C 


SUBROUTINE  MOTION 

SUBROUTINE  MOTION  IS  EXECUTIVE  RESPONSE  PROSRAi. 

^COMMO N/AOAN/^^^KSTART,NEQ,NIT,aRC100)  «aRD 16,100) » QRP 110 0) ,T 1012, 

COMMON/CHECK/  J0E8UG 

COHMO  N/OIMENS/  MAXO  OF,  NAXHAS.  MAK<:p  McnrM 
COMMON/IN^^FLG/  fgf  Jsf  ^OSAV.  YSAV 

DOMMON/i.OAp/_  AL<6),  AM6],CK_C6),CPj6_|,pgC0pMb>, 


90 


91 


1 
2 

3 

4 

5 

b ZB  OX  (16, 

COMMOVMASS/'  >MASS(50,5C) 

! iiiiiiiiiiiiiifi::’- 

3 XBOSIE(2ft^IDb(4o?*^^~*’^'^°®**^^^^’'^^'^^^^’'^'^^^'’*^^  * NSPRNg’ NTRIAL, 

OMAXnNDExf^iloOO: 

VMAX( INDEX)=-10.0E10 
AHAX(  INDEX)  =-lottlEia 
OMIN(  INDEX)  =100  0.0 
VMIN(  INOEX)=10.0E10 
AMINC  INDEX)  =10.  OElO 
DO  91  INOEX=l,MSPRNG 
SMAX  (IN0EX)=-10.0E10 
SMIN(INDEX)  = 10.0E10 


C 

c 


SET  UP  ORIGIN  OF  MOVING  COORDINATE  SYSTEM. 

XDSAVE=0.0 
YDSAV  E=0. 0 
2DSAWE=0. 0 
RSAV=ROLL 
PSAV=PITCH 
YSAV=YAH 
RDS  AV=0.  0 
PDSAV=0,0 
YOSAV=0.0 
IFIRST  = 0 

INITIALIZE  INTEGRATION  PACKAGE. 

DELTIM  = OELTXl 

OPRT  = -0.5*DELTI1  - □"LTX 

CALL  ADAMKOELTIM) 

SET  TRIM  ACCELERATION'S  TO  ZERO. 
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MOTION 


100 


c 

c 

c 


c 

c 

c 


DO  10  0 lNOEX  = l,MOOF 
GE^VEL!INOEX>=0,0 
GEMAgC(INDEX)=0.0 
IF  (XTIRE.GT.il  GO  TO 
KTIRE  = 2 

SET  OP  MASS  MATRIX. 


140 


110 


120 


CALL  MASSM 

IF  IJDEBUG.EQ.O)  GO  TO  IZO 
WRITE  (6,10) 

WRITE°(6!!7PiN5EX?UMA5S  ( 10,  INDEX)  , IO=l,MDOF> 
INVERT  MASS  MATRIX. 

call'  mat X IN  (XHASS,  MDO-  .MAXOOFfKDUM) 

IF  (KOJM.EQ.l)  GO  TO  140 
IFIKOUM.  EQ.  2)  WRITE  16,9) 

IFCKD  UM.  EQ.  3)  WRITE  (6,9) 

KERR  = 2 
RETURN 

HERE  WE  GO... 

WRITE_(6,5) 

IF^(MPRlNT.EQ.O.OR.riME.LT,OPRT)  GO  TO  200 
DPRT  = DPRT  * DPRTi 
NOUT  = 0 
2 00  CONTI 

IF  (XSTa|tIeQ.6?AND.IFIRST.EQ,1 ) GO  TO  260 
GO  T3  290 
2 60  CONTINUE 

CALL  EULER(DELTIM) 

CALL  BETAIJ 

CALL  ORIGIN(OELTIM) 

290  CONTINUE 

IF  (MD0F.LE.6)  GO  TO  295 
IF  (NIT.EQ.l)  CALL  BOTTOM 
285  CONTINUE 

CALC.  NEW  FORCES, INCLUDING  DAMPING. 


140 

180 


C 

C 

c 

c 

c 

c 


c 

c 

C 


CALL  EXTRNL 

IF  (<START.EQ.6I  IFIRST  = 1 
MULTIPLY  MASS-INVERSE  INTO  R.H.S. 

CALL  MULT  < X MASS, FORC E , GENACC , MA XDO F , MA XOOF , MDDF , MDOF, 1 ) 

IF  NITI2,  STILL  IN  START  UP  PHASE. 

IF  (MIT.GT.Z)  GO  TO  ZOO 

CALL  MAXI 

OUTPUT  DATA. 

IF(NOUT.NE.O)  GO  TO  400 

WRITE  (6,1)  TIME.OCG 

WRITE  (6,2)  <GENDI  SfID)  ,IO=1,MOOF 

WRITE  (6,3)  <RENVEL«I0)  ,10=1, MDOF) 

WRITE  (6*4)  (GENACC( 10) , 10=1, MDOF) 

WRITE  6,11)  ROLL,PITCH,YAW,XOeAR,YOBAR,ZOBAR 
IF  luDEBUG.EO.Z)  JlRITE(6,6)  (DISPt  1 0)  ,I  0=1, MSPRN3 ) 

IF(JSRAPH.GT?Q)°WRirE*(l)  T IME, OCG, (GEN OIS ( 1 0 ) , I 0= 1 , HOOF) , 
^IFIJ,R4PM.i,  i.ui  j5|^i|L;f5);fo  = l,MD6F)  .(GENACC  (10)  ,10=1,  MDOF)  .ROLL, 

MOTION 
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PITCH,  Y4W,X0BAR, \fOBAR,ZO BAR, 
CDIS  Ff  I0>  , I0=1,MSPRNGI 


♦ DELTXll  GB  TO  180 


tfOO  IF  IJVEL.GT.O.O.AMO.KDAH.GT.O)  GO  TO  500 
IF  ITIME.GE.ENDTIH)  GO  TO  500 
IF  IMIT.GT.l)  GO  TO  180 
IF  aiME.LT.ENOTX.OR.nriME.GT.ENOTX 
OELTIM  = OELTX 
NIT  = 2 
KSTART  = 2 
I FI  FIS  T = 0 
TI02  = DELTrM/2. 

TID3L2  = OELTIM/ 12. 

TI024  = DELTlM/24. 

TI072  = OELTIM/720. 

GO  TO  160 

500  HRIIE  (6,19) 

RETURN 

FORMAT  STATEMENTS. 

1 FORMAT  fZHOTIME  =£14. 4 , I OX , 14HCG  DISTANCE  = £15.6) 

2 FORMAT  (15H0DISPLACENENT  =, /,  ( IX  , lOEl  2*  4) ) 

3 FORMAT  ( IIHOVELOCITT  =,/,  UX,10Ei2.  4)  ) 

4 FORMAT  (15HOACCELERATIOM  =,  / , < IX  , lOEl  2.  4)  > 

5 FORMAT  (33H08EGIN  TIME  HISTORY  CALCULATIONS.,/) 

6 FORMAT  (21H0SPRINS  DEFLECTIONS  =,/,  <1X,  10E12.  4)  ) 

7 FORMAT  (6H  COL.  , I 3, < 10E12. 4) ) 

8 FORMAT  <10{2H  •),30HHASS  MATRIX  SINGULAR.  (MOTION)) 

9 format  (10(2H  ?),43HMUMBER  OF  DEGREES  OF  FREEDOM  LT  1.  (MOTION)) 

10  FORMAT  (IHO.S (2 H ► ) ,22H  MASS  MATRIX  BY  COLUMN,/) 

11  FORMAT  (7HOROLL  =,E13.5,9H,  PITCH  =,E13.5,7H,  YAH  =,E13.5, 

I 8H,  X = E12.5,6H,  Y = E12.5,6H,  Z = E12.5) 

17  FORMAT  (1H0,10(2H»  ),17HNCRMAL  END  OF  JOB,10(2H  *)) 

18  FORMAT  (48H0VEHICLE  OVERTURNED,  RESPONSE  TERMINATED  AT  T = E15.6) 


19 


FORMAT 

ENO 


(24HOTIME  HISTORY  COMPLETED.) 


MOTION 
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SU3R3LiriNE  MULT  f A 1 3 , R,  N , H,  NN«  MH,  LL  I 
GENERAL  MATRI*  HULTIPLICATIOM. 

PARAMETERS  - 

A = NAME  OF  FIRST  INPUT  MATRIX. 

B = NAME  OF  SECOND  INPUT  MATRIX. 

R = NAME  OF  OUTPUT  MATRIX. 

N = NUMBER  OF  ROWS  IN  A. 

M = NUMBER  OF  COLUMNS  IN  A AND  ROWS  IN  B. 

NN  = LENGTH  OF  COLUMN  IN  A. 

MM  = length  of  row  IN  A. 

LL  = LENGTH  OF  ROW  IN  3. 

REMARKS  - 

1.  ALL  MATRICES  MUST  BE  STORED  AS  GENERAL  MATRICES. 

2.  MATRIX  R CANNOT  BE  IN  THE  SANE  LOCATION  AS  MATRIX  A. 

3.  MATRIX  R CANNOT  BE  IN  THE  SAME  LOCATION  AS  MATRIX  0. 

4.  NUMBER  OF  COLUMNS  OF  MATRIX  A NUXT  BE  EJUAL  TO  THE  NUMBER 
OF  ROWS  OF  MATRIX  8. 

5.  NN.LE.N,  MM.LE.H. 

DIMENSION  All). 811), R (1) 

X K ^ 

0020  K = 1,LL 

I<=IK^M 

IRQ  = N^CK-l) 

00  20  J = 1,NN 
IR  = IRO  J 
UI=J>N 
13  = IK 
RIR  = 0. 

DO  10  I=ltMM 
JI=JI*N 
IB  = 18  ♦ 1 

10  RIR  = RIR  ♦ A(UI»  *8{IB) 

20  RCIR}  = RIR 

RETURN 

END 

MULT 
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c 

c 

c 


c 

c 


c 

c 

c 


c 

c 

c 


c 


SUBROUTINE  ORIGIN  {DELT4T  } 

DETERMINE  POSITION  VECTOR  OF  THE  ORIGIN  IN  FIXED  AXIS  SYSTEM. 
COMHON/DALC/  BETA  0,3  ),CRITI5»  .OCG.OCGO.DOM  IN,  OVEL, 

^(;OH«ON/|j5viNG/R»i{»|.«6BiR;ls«VE.XIB<5..Y5s»vE,YOMR,ySA»E. 


XOaARO=BETA  11 ,1) * GEN?EL  < 2 »*BETA  a,2»*  GENVEL < 3)  «-9ET  A<  1, 3 1 *GEN VEL<  6 ) 
YOBARD=BETA (Z, 1> *GENVEL < 2 » ♦BETA < 2 ,2 )*GENVEL <3 ) + 3 ET A < 2, 3 )*6EN VEL I & ) 
Z0BARD=BETAI3,1I*GENVEL(2»+3ETAC3,Z)»GENVEL<3>^3ETA«3,3 l•GENVEL<6> 

TRAPEZOIDAL  INTEGRATION. 

XOBAR  =XSAVE+0.5*<XDSAVE+XOBARO>*OELTAT 
Y03AR  =YSAVE+0.5*<Y.OSAVE^YOBARD)*OELTAT 
ZO0AR  =ZSAVE^IJ.5*  IZOSAVE^ ZO0ARD>»DELTAT 

SAVE  VALUES  FOR  NEXT  STEP 

XSAVE=XOBAR 

ySAVE=Y08AR 

ZSAVE=ZOBAR 

XDSAVE=XOBARO 

YOSAVE=YOBARO 

ZOSAVE=ZOBARD 

RETURN 

END 


ORIGIN 


187 


UOUUUOUUO  O O OUO  C500 


SUBROUTINE  PITER  ICt  R,  NTRIA  UKOK) 


NEGATIVE  VALUE  INDICATES  UNSTABLE  RESPONSE, 
CRITICAL  VALUE  OF  C = 0. 

R - PRESSURE.  ^ „ 

KOK  • 0.  ANOTHER  TRIAL  IS  REQUIRED 
I,  ITERATION  COMPLETE 
E.  ERROR. 


DIHENSION  R<5),CI5) 


data  EKI/.25/,  EX2/2.  0/,  FMIN/0.5/*  FMAX/2.0< 

DATA  01/0.5/,  D2/0.2/,  fOLl/0.2/,  tOL2/0.03/ 

RT2(A1,A2, 81,021  = < A i* a2-A2*B 1 )/ <B2-B1 ) 

IF  (C  (II .GT.1.0)  30  TO  3300 
IF  <C  (II  .LT.O.Ol  cell  = -1.0 
IF  (MTRIAL  - 21  100, BOO, 1200 

ONE  TRIAL  COMPLETE. 

100  DO  200  1 = 3,5 
R(II  = 0.0 

200  ecu  = 0.  0 

R{5I  = l.Ell 
R(2)  = R(1I 
C<21  = cell 
F = FMIN 

300  IF  (C (21 .LE.0.0)  GO  TO  500 

FI  = (t.  0/(  l.fl-C(2l  **E)(2I  I**EX1 
F = AMINKFMAX.Fll 
500  R<3)  = F*R(2I 
Rdl  = R<3) 

IF  (A8S(C(2)  I.LT.TOLII  GO  TO  3200 
GO  TO  3100 

THO  TRIALS  COMPLETED. 

6 00  C<3)  = ceil 

R(3)  = RCll 

IF  <C  (31  .LE.  0.  0)  GO  TO  /OO 

IF  (C(2I  .LE.O.OI  GO  TO  800 

BOTH  POINTS  GOOD.  , 

IF  ((R(2I  - R(3U*(CI2>  - G(  3) ) .LT.  0.  0)  GO  TO  650 
F = (1.0/(1.0-C(3>**EX2))**EX1 
F = AMIN1(FMAX,F» 

R(l,l  = F*R(31 
Rdl  = RCAI 
GO  TO  3100 

650  R(4l  = RT2(R<2I  ,R(3),C(p**2,C(3)*»2} 

R(<»l  = AMIN1(R(  4) , FMA  X^AMAXliRCEl  ,R  (3)  I I 
Rdl  = R(4) 

IF  {ABS(C(31I  .LT.TOLl)  GO  TO  3200 

IF  (ABS(R(4I  - R(3I  l/R(4)  .LE.TOL2) 

GO  TO  3100 

7 00  IF  (C  (2)  .LE.O.OI  GO  TO  1100 

MOST  RECENT  POINT  BAD. 

R(4I  = R(2I  - 01*(R(2I  - R(3II 
RCl)  s Rt4) 

IF  (ABS(R(41  - R(2)  )/R{4l-LT.TOL2l  GO  TO  3200 
GO  TO  3100 

: MOST  RECENT  GOOD,  OTHER  BAD. 

BOO  R(4I  = R(3)  - D1»(R(3I  - R(2)l 
R(ll  = R(4l 

IF  (ABS(C(3II  .LT.TOLl)  GO  TO  3200 

IF  (ABS(R(4)  - R(3)  ) /R(4)  .LT.T0L2)  GO  TO  3200 
GO  TO  3100 

: BOTH  POINTS  BAD. 

1100  R(4)  = FMIN*R(3) 

RCll  = R(4) 

GO  TO  3100 


GO  TO  3200 
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C 

C 


1^00 


c 

c 


THREE  OR  MORE  POI'ITS  COMPLETED. 

C(4)  = C<1) 

= R(l) 

IF  C UI.GT.O.O)  GO  TO  1400 
CURRENT  POINT  BAD. 

IF  (C  (31 .GT.O.OI  SO  TO  1350 
IF  <C  (a)  .GT.0.0)  GO  TO  1250 
ALL  POINTS  BAD,  KEEP  3 AND  4. 
C<2)  = C(3) 

= RC3) 

= CI4> 

= Rf4> 

= FMIN*R<4) 

= R<4) 


4 BAD.  KEEP  2 AND  4. 


R(2) 

C<3) 

R<3) 

RC4) 

RCl) 

SO  TO  3100 
; POINTS  3 AND 

1250  C(3>  = C(4) 

R(3)  = R<4) 

GO  TO  700 
; KEEP  3 AND  4. 

1350  CC2>  = C<3) 

R(2)  = RI3) 

CIS)  = C<4) 

R<3»  = R(4) 

GO  TO  700 

: CURRENT  POINT  GOOD. 

1400  IF  (C  (3) .GT.0.0)  GO  TO  1900 
IF  CD  (2».GT.0.0>  GO  TO  1500 
: BOTH  PREVIOUS  POINTS  BAD,  KEEP  POINTS  3 AND  4. 

1450  C<2)  = Cf3l 
R(2)  = R(3) 

C(3)  = C(4) 

R<3>  = R<4) 

GO  TO  300 

: POINTS  2 AMO  4 ARE  GOOD,  3 NO  GOOD. 

1500  IF  (IRI2>  - R(4>»*(Cr2»  - C f 41 } .GT.  0.  01  GO  TO  1450 
: KEEP  2 AND  4. 

R3  = RI3»  ♦ 02*<R(4)  - R(3)) 

R<5)  = R(3» 

16  00  R(3)  = R(4I 
C(3)  = C<4) 

RI4)  = RT2  (R<2»,R<  3)  ,S«  2)*»2,C«3)**2> 

R<4)  = AMIN1(RI4),R3> 

RID  = RI4) 

IF  (ABSIC(3))  .LT.TOLl)  GO  TO  3200 

IF  (ABSIRf4)  “ RI3>  l/RI4).LT.T0L2)  GO  TO  3200 
GO  TO  3100 


1900 


20  00 


GO  TO  2000 


3 AND  4. 

D2*IR(4»  - RI2)) 


IF  fC  (2)  .GE.0.0)  GO  TO  2100 
IF  tlR(3)-R{4)}*{3(3>.-:i4))  .LT.0.0) 

RI3»  = R<4> 

C(3)  - C(4) 

GO  TO  BOO 
KEEP  POINTS 
R3  = RI2)  ♦ 

R(5)  = R<2» 

CC2)  = C<3> 

R(2>  = RI3> 

GO  TO  1800 

ALL  THREE  POINTS  ARE  GOOD. 

ALL  3 POINTS  ARE  GOOD. 

2100  IF  C{RI3»-Rt4))  MCI  3)-CI4>).LT.0.0)  GO  TO  2200 
F = ll.0/ll.0-CI4)*»EX2n**EXl 
F = AMINl  IFMAX,F» 

R1  = F*RI4) 

GO  TO  2300 

2200  Ri  = RT2  IR  1 3)  , Rl  4)  , C I3>  •»2,  CI4)  **2 ) 

R1  = AMIN1IR1,FMAX*RI4D 
2300  RI2)  = RI3> 

C 12)  = Cl 3> 


PIT 
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ono  C700  rtoo 


C 


100 


3200 


3300 
SO  00 
C 


ft!3)  = R<4» 

- R(5I. 

R(4»  = R1 

T RS^C  t 4)  ) ■LT»T0L1)  go  to  5200 

IF  U BS(RC4> -R<  3»  J 41  . LE.  T0L2I  GO  TO  3200 

NEW  TRIAL  REQUIRED. 

KOK  = 0 

return 

SOLUTION  FOUND. 

KOK  = 1 
RETURN 

ERROR. 


KOK  = 2 


HRITE 
FORM&T 


», 50001  C*l>  , 
{^4HOERROR  in 


S/R  RITER  - GRIT  GREATER  TKAN 


RETURN 

END 


0* 


E15. 6) 


RITER 
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c 

c 

c 


SUBROUTINE  PRETRH 

CALLED  ONLY  IF  GUY  iTIRES  ARE  USED. 

COHMON/CALC/  BETA  (3 . 3)  , CRIT  (5)  , OCG,  OC  €0,  ODilN,  DVEL, 

“CONMON/cflECK/ 

CONMOIN  XLAHOA  (100,  44} 

^SOHMpN/gPTIpN/  |0PTiJGRAPH,.<AXLB(2) 

2 

3 XB0GIE(2), 100(40) 

COMMON/PRELOO/  PREL0Df4) 

FOFX (6001  ,JCURVE(52) , M AX SPR, NPPC ( 5 2) , 


cflECK/ 

XLAMOA (100, 44) 

,KAXLES,<30G,  KOAM.KER 
KS HIR2,KRACKS,<RIGI0, KSH£LT,KHIR£S iMASSES, M00F,MSPRNG 
:5P?«61jNCALL,NCASE,NJOB,NOUT,NPRtNT,NRsJR(3)lNSPRNG 


COHMON^SPRING/ 
1 X(600) 

COMMQ  N/WEIGHT/ 
3 1 MEN  SION  RES( 


C 

C 


10 


c 

c 

c 


WEIGHT, NGTS( 13) 
3),ER(  3),GENSH(3) 


WRITE 

FIND 

M 

IS  = 
GFGH 
GFGHl 
IRL  = 
IRU  = 
□ 0 10 
G 
G 

FIND 
IH  = 6* 
IHPl 
IHP2 
INH4 
IHMS 
IHM6= 
GFCH 
GFCHl 
GFCH2 
KCl  = 
KC2  = 
I =0 
00  20 
I 
G 


20  G 
GFGCH 
GFGCM 
GFGCM 
START 
NC3UN 
NPR  = 
IF  (J 
NTRY 
00  25 
25  6ENDI 
DO  30 
E 

30  R 


(6,1) 

CiENERALIZEO  FORCE  FOR  ONE-HALF  SHELTER 
EAYE  MODE  AND  PITCH  MODE 
1.  ♦KAXLES  *1 
-0.5»WGTS(IS) 

= 0.0 

IS  ♦! 

IS  ♦KRACKS 
rM=IRL,IRU 
FGH  = GFGH  -WGTS(IM) 

F GHl  = GFGHl  «■  MG  T3  ( IM)  • ( XBARCM  ( 3 ,I  M)  - X3ARC  M ( 3,  IS  > ) 

generalized  force  due  to  guy  wires 

Z'*K  AXLES 


*-L 
* 2 
- 4 
-5 


= IH 
= IH 
= IH 
= IH 
IH-6 
= 0.0 
= 0.0 
= 0. 

2*KGW1R1 

2»<GWIR2 


-1 

-1 


J=KC1,KC2,2 
= 1+1 

FCH  = GFCH-PREL00(:I)  •XLAMDA(J,IHM6  ) 
FCH1=GFCH1-PREL00(I)*XLAM0A(J, IHH5) 

FCH2  = GFCH2  - PRELOO(  I)*XLAMDA(  J,  IHM4) 
= GFGH  ♦GFCH 

1 = GFGHl  ♦GFCHt 

2 = GFCH2 

RELAXATION  PROCESS 
T =0 
0 

DE8UG.EQ.2)  NPR  = 1 
= 0 

1=1, HOOF 
S(I)=Q.  0 
1=1,3 

R(I)=0.  0001 
E5(I)  = O.G 


SET  STARTING  POSITIOW  FOR  TRIM. 

AVSLO=ll,  0 
ISK=KBOG^l 

00  30  1 INOEX=l,KAXLES 
301  ISK=ISI!:+NASPR(INOEX) 

ISKK= ISK 

1 = 2»IISK  ♦ KBOGI  - 1 
IK  = I 

00  33  J=1,KSHELT 
IS  = JCURtfE(ISK) 


KTIRE, 

IR,KGMIR1, 

;Jntrial, 
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PRETR 


31 


NSTOP=NPPCI  ISK>  ♦•IS-  1 
IS  = IS*l 

IF  (I S.GT.NSTOP)  GO  TO  2000 
IF  «<  (IS)  .LT.0.0)  GO  TO  31 
AtfSLO  = AVSLO  - ((FOFX(IS-l) 


- FOFX  (IS)  ) / 


- X(IS> ) ) ►XLAMOA  (Ii IHH6)** 2 


(X(IS-i) 

I = I ♦ 2 
ISK=I  S<+1 
33  CONTINUE 

GENDI S(IH)=GFGCH/ AVSLO 
GENS4 (II =GENDIS(IH) 

GENS^  (2)  = 0.  0 
GENSH(3I=0. 

35  CONTINUE 
GFSHl  = 0.0 
GFSH  = 0.0 
GFSH2  = 0. 

ISK=I SKK 
I = IK 

°°  **DISPJ=XLAMbA(I,IHMb)*GENOIS(IH)*XLAMOA(I,  IHN5)* 

1 GENOrSdHPl)  ♦ XLAMDAd,  IHMt»l'‘GEN0IS(IHP2) 

ISTART  = JCURVEdSKI 
1^1  p 2 NPPC(ISK) 

CALL  INTKDISPJ  »NP»  X ( 1ST  ART  I ,FOFX  (ISTART)  ,3F) 
SFSH=GFSH*SF*XLAN0A(ItIHM6) 

GFSHl=GFSHl*SF*XLAiDA d, IHH5) 

SFSH2  = GFSH2  f SF*XLAH6a  d.  IHM4) 

I = I *2 
IS<  = ISK  1-1 
40  CONTI NJE  , 

RES(  1)  = GFSH  ♦■GFGCH 
RES(  2)  = GFSHl  ♦GFGCHi 
RES(3)  = GFSH2  ♦ GFGCH2 

CALL  RELAX  ( S.RES.  G E)^S  H,  E R,  NOK,  NPR,  NC  OUNT ) 

GENDISdH)  = GENSH(l). 

GENOISdHPl)  = G£NSH(2) 

GENDISdHPZ)  = GENSH(;3) 

IF(NC0JNT.EQ.1I  NTRY  j^NTRY  ♦1 
IF(NT RY.GT, 20)  GO  TO  1000 
IFINOK.EQ.O)  GO  TO  35 
IF(NOK.Ea.2)  GO  TO  1000 
: PRE  TRIM  DONE 

IF  (KRACKS.EQ.O ) GO  TO  &0 
: DISPLACE  RACKS. 

IH  St  IH  5 
DO  50  I = 1,KRACKS 
GENDIS(IH)  = GENSH(l) 

GENDI  S(IHi-6*KRACKSI  = GENSH(l) 

GENOISdH*3)  = GENSrd  3) 

GENDI  SdH+3»6*KRACKS)  = GENSH(3) 

50  IN  = H ♦ 6 
60  WRITE  (6,2) 

IF  (J  DEBU  G.  GT.  0)  WRITE  (6,4)  GENOIS 

CALL  BASE 

RETURN 

10  00  WRITE  (6,  9500  ) 

KERR  = 2 
RETURN 


C 

C 

C 


ERROR  IN  DATA  ? 


2 0 00 


G 

C 

C 


WRITE 

KERR 

RETURN 


(6^3) 


FORMA  T STATEMENTS. 

1 FORMAT  I28H  BEGIN  PRE-TRIM  ON  GUY  WIRES) 

2 FORMAT  (IBH  PRETRIM  COMPLETED)  

3 FORMAT  (38H  ERROR  DETECTED  BY  CABLE  TRIM 

I 40H  CHECK  SHELTER  X VS.  F<X)  DATA. 

4 FORMAT  (lOHOGENDIS  = / ( IX  ,lflE13.  4) ) 


ROUTINE.,/, 
(PRETRM) ) 


PRETR 


192 


PRETR 


9500  FORHJIT  C/,31H  GUY  MIRE  TRIM  ABORTED  fPRETRHJI 
END 
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SU8R3UTINE  REBOUN  <MSfP» 


SUBROUTINE  REBOUN  (REBOUND)  CALCULATES  NEK  STARTING 
CONDITIONS  WHEN  A SPRING  BOTTOMS  OUT  (REBOUNDS). 

TOTAL  DONSERKATION  OF  ENERGY  IS  ASSUNEO 

COMMON 

COMMON/'AOAM/  KSTART  , N EQ  ,NI  T . QR  ( IQ  0)  .ORO  (6, 1 00  ) , QRP  (1  0 0)  ,TI  012, 

1 TI  D2,TI02*»,TI072 

COMMpN/CALC/  ^^^TA(3.3)  , CRI  T ( 5)  , OCG,  DC  GO , 00  N IN,  0 VEL , 
t FA  ERO(50) , FORCE ( 50 ) , GENACC (50 ) , GEN DI S ( 50 ) , GENKEL ( 50) ,KTIRE, 

? PITCH, PTRIAL  (5), ROLL, TIME, TMlN,XeARCM{3, 13),  YAM 
COHMON/OATAIN/  CGMASS (1 3) ,CGP0S(3,13) .OAMPFIoOO) ,OAMPV(600) , 

2 

COMMO 


■ I lu  u n I X 11/^  riM  j o , X o \ ,UHnrr(9UUI,UHn 

D|LTIM,ENOTIM,G,GS  (2)  ,ISDAMP(50)  ,HDIM0P,NP  DA  HP  (50  ) .SLOPE, 
XI  YZ,XI1(13)  ,XI2  (13)  , XI3  (13)  , DEL  TX  ,0  ELT < 1,  D^RT  ,DPRtl  ,ENo1’X 
MONZOIMENS/  MAXD0F,MAXMAS,MAXSP,MR0IM 


COMMO  N/EULC/  P0SAl/,PSAV,ROSAV,RSAV,  YOSAV.YSA/ 

COMMONXINTFLG/  IFIRST 


C 

C 


COMMON  XLAMDA  (100,  44) 

COMMON/MASS/  XMASS(50,  50) 

COMMON/OPTION/  I0PT,JGRAPH,<AXLB(Z) ,KAXLES, K30G,  <DAM, KERR,KGMIR1 , 
k J^f?ig?>!<'^?CKS,KR{GIp.  KSHELT,(<KIRES,MASsh,M00F,MS^RNG, 

2 NAS»R(6) ,NCALL,NCASE,NJ0B,N0UT,NPRINT,NRS3R(3) ,NSPRNG^ 

3 X30GIE(2)  ,IOC(40) 


.NTRIAL, 


110 


120 


130 

150 


TO  150 


170 


200 


CALCULATE  GENERALIZED 
DO  110  M = 7,M00F 
FORCE (M) =XLAHDA (MSP,M-S) 

IF  (KBOG.EQ.O)  GO  TO  150 
NA=0 

DO  120  I = 1,KAXLES 
NA  = NA*NASPR(I) 

NS  = 2*  NA«-1 

IF  (MSP.LT.NS)  go  TO  150 
IF  (MS».&E.NS+4*X0O O GO 
DO  130  M=7,MOOF 
FORCE  (M)  =F0RCE(M)  »-XLAH0A  ( NSP+2,M-6) 
FORCE(1)  = 0,0 
FORCE  (2)=0.0 
FORCE  (3)  = 0.0 
FORCE  (4)=0.0 
FORCE  (5)  =0.  0 
FORCE(&)=0.0 

CALCULATE  VELOCITY  CHANGE  DUE  TO  UNIT 
CALL  MJLT 
CALCULATE 
VNUM  = 0, 

VDOM  = 

DO  17  0 

VNJM  = GtNVEL(M( 'FORCE (M ) ♦ 

VOOM  = GENACC(M)'FORCE(M)  ♦ 

VIMP  = 


IMPULSE  DUE  TO  UNIT  SPRING  FORCE 


. . _ . IMPULSE 

(XH  ASS, FORCE,  GENACC,  MAXDOF,  HA  XDOF,  MDDF,  MDOF,  1 ) 
VALUE  OF  IMPULSE  NECESSARY  TO  KEEP  KE  CONSTANT 


0. 

M=l,MOOF 

GENVEL(M)»FORCE(M) 
GENACC(M)'FORCE( M) 
-2.0'VNUM/VDOM 
CALCULATE  NEW  VELOCITIES 
DO  20  0 M=l,MOOF 

SENVEL(M)  = GENVELCM) 
GENACC(H)  = 0.0 
CONTI NJE 
RETURN 
ENO 


VNUM 

VDOM 


♦VIMP»GENACC( M) 


REBOUN 
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cjono 


50 

40 


10 


14 

7 


8 

20 


13 


12 


MEft) 

X,2HRESI0UE/<4X,£13.6,4X,E13. 


100 

101 

55 

102 

11 


NNQ=MNa+t 


SUBROUTINE  RELAX  (NEQ, RES ,X,ER, NOKf NPRI NT, NCO UNTI 
NC3UNT  must  be  SET  = 0 BEFORE  VERT  FIRST  CALL. 

VERSION  2.0,  DECEMBER  1975. 

COMHO N/RL  P/  DELXISO) , IP( 50 ) , PRES  1 5 01 , PX ( 50  » , RRES«50> , 

1 SlIGXf  50)  ,XRES(50,5.0) , XX1(50) 

DIMENSION  RES(NE0>,X(NE)) ,ER(NE)) 

MQIH=5Q 

COM=1000.0 

IF  INPRINT. NE.l)  GO  TO  40 
WRITE  (6,50)  (X  (N)  , RES(N)  ,N=1, 

FORMAT  (IH  ,//4X,6H  TRIAL  X,l5 
IF  (MCOUNT.EQ.O  ) GO  TO  10 
IF  fNCOUNT.LE.NEO)  GO  TO  14 
NCOUiNT=0 
Nq=0 
NNQ=Q 

DO  2 I=1,NEQ 
DX  =X(I)«PX(I) 

IF  (ABS(OX)  .LE.ER(I))  Na=NQ*l 
IF  (A  BSfRESlI)  )-’ABS  (PRES  (I)  ) .GT.O.O) 

CONTINUE 

IF  (NQ.EQ.NEQ)  GO  TO  100 
IF  (NNQ.EQ.NEQ)  G3  TO"  101 
DO  4 1=1, NEQ 

xxi(i)=x<i) 

RRESf I)=RES(I) 

DELXC 1)=ABS(0.0001»X(I>) 

IF  (OELX(I).LT.ER(I)  ) OELXd  )=ER(I) 

CONTINUE 
GO  TO  6 

DO  7 MM  = 1,NEQ 

XRESC MM.NCOUNT)  = (RES(MH)  -RRES(MM)) 
X(NCOUNT)=XX1(NCOUNT) 

IF  (NCOUNT.EQ.NEQU  GO  TO  8 
NCOUNT=NCOUNT+1 

X(NCOUNT)=X(NCOUNr)fDELX(NCOUNT) 

NOK=0 
RETURN 

DO  20  1 = 1, NEQ 

SIGX( I) =-RRES(I) 

CALL  SOLVE(XRES,NEQ,NOIM,  0,  IP,OET,SIGX) 

IF  (NEJ.EQ.O)  GO  TO  102 
PROP=1,0 
DO  13  1=1, NEQ 

IF(A0S(SIGX(I)) .LT.CON*ER(I) ) GO  TO  13 
XPROP  = (CON*ER(I) ) /ABSISIGX(I)) 

IF  (X  PROP. LT, PROP)  PRO’=XPROP 
CONTINUE 
DO  12  1=1, NEQ 

X(I)=XX1(I)»SIGX(I) »PR0P 
PXII) =XX1(I) 

PRES(I>=RRES(I) 

NOK=fl 

NCOUNT=NEQf 1 
RETURN 
NOK=l 
GO  TO  11 
WRITE  (6,55) 

FORMAT  (31H0 
NOK=2 
MCOUNT=fl 
RETURN 
END 


/ DEL<(NCOUNT) 


SOLUTION  DIVERGING  IN  RELAX) 


6)) 


RELAX 
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wrgr*  wrg^  ujin)^  rs>^^  Viiijr'Ui^Mrvp^  ujrgr— 


SUBRDUTINE  RFORCECFI , H,  KOOF  ,INOE)(f ) 

C 

c 

C RFORCE  CALCULATES  NON-ACCELERATION  INERTIA  TERNS  FORM  RACK  HASSES. 

C 

COMMON/CALC/  BETA  (3 , 3 ) . CRIT  15 ) , DC  G,  DC  GO,  DON  IN  , 0 VEL , 

1 FAER0(50),FORCE<50),GENACC<50»  ,GENOIS<50>,GENI/EH50)  ,KTIRE, 

2 PI TCN,PTRIAL(5) , ROLL, TIME, TMIN,X0ARCM(3,13) jYAH 
COMHOn/OaTAIN/  CGHASb  <i5i  .CCkuSi  j,  iji  ,OAMKh  15  Oui  , OAMKWibuut  , 

1 OELTIM.ENDTIM,  G,  GS(2)  , IS  DAMP <501  ,MDI  MOP,  NP  DA  HP  (50  ) ,SLOPE , 

2 XI YZ,Xll(13>,XI2(13) tXI3 (131 jDELTX .OELTXl.D^RT.OPRTl.ENOTX 
COHMON/OPTION/  lOPT , JGRAPH, KAXLB( 2) ,K AXLES, K3 03, KOAM, KERR,K3 HIRl, 

KSWIR2,KRACKS,  KRIGID,  KSHELT,KMIRES  , HASSES,  MOO  F,MSPRNG, 

NASPR(6> ,NCALL,NCASE ,NJOB,NOUT ,N PR  IN T,NRS  = R( 3 » ,NSPRNG,NTRIAL, 
XB0GIE(2)  ,100(40) 

DIMENSION  FlU) 

FIXJ( XMJ,XLJ,YLJ,ZLJ»6T00TJ, GZOOT J) =XMJ» <-GEN VEL ( 1) *GENVEL( 3) -XL J 

► (GENVEL (1) ►*2*GENVEL(5)»*2) 
♦GENVEL(4>* (YL J»GENVEL(5)+ZLJ 
*GENVEL( 1))  -2. 0*SENVEL(  1)*GYD0TJ) 
♦XMJ*GENVEL<5)»CGENVEL(6)+2.0* 
GZOOTJ) 

♦ XMJ^GEN  V£L(5)  *(GENVEL(6>+2.0* 
GZOOTJ) 

FIYJ( XMJ,XLJ,YLJ,ZL J,GXOOTJ,GZDOTJ)=XMJ*(SENYEL( 1) ♦GENVEL(2) 

-YLJ 

* (GENVEL (1)>*2*3ENVEL  (4) »*2) 
♦GENVEL(5)*(XLJ*GENVEL(4)*ZL J 
►GENVEL(  1))  ♦•2.  O^GENVELd  )*GXOOTJ) 
-XMJ*6ENVEL(4) ♦(GENVEL(6>*2.  0» 
GZOOTJ) 

FIZJ( XMJ,XLJ,YLJ,ZLJ, GKO OT J, GYOOTJ) =XMJ*( GENVEL (1 ) * ( XL J^GENVEL ( 4 ) 

♦ YLJ*GE  NVEL (5 ) ) -Z LJ» (GEN VEL  < 4 ) » • 2+G ENVEL ( 5 ) ♦♦Z)  tGENVELCAl 
•(GENVEL(3)>2.0*GVOOTJ)-GENVEL(5)» (GENVEL (2) ♦Z. O^GXOOTJ) ) 
FIPHIJ(J,GDTHET,GDPSI)  = (XI3(J)  -X 12 ( J) ) » GEN VEL ( 1 ) 

*GENVEL(5)-(  XIl(J)  ^XIZ(J)  -XI3(J))* 
GENVEL(1)*G0THET  +(XU(J)  tXI3  (J)-X  I 2(  J ) ) 
*GENVEL(5)*6DPSI 

FITHET(J,GOPHI,GOPSI)  = (XIKJ)  -XI 3 ( J)  ) *GE  NV  EL  ( 1 ) 

•GENVEL(4)*(XI1 (J)  ♦XI2(J)  -XI3<J))* 

GENVEL  (l)*GDPHI  -(XI2(J)  ♦XI3(J)  -XIKJ)) 
*GENVEL(4)»G0PSI 

FIPSI (J,GOPHI,GOTHET»  = (XIZ(J)  -XII ( J) )*GE NVEL( 4 ) 

*GENVEL(5)-(KI1 (J)  ♦XISIJ)  -XIZ(J))* 
GENVEL(5>*G0PHI  ♦(XIZ(J)  ♦XI3(J)  -XIKJ))» 
GENVEL(4)*GDTHET 


RACKS 

KX  = 2»KRACKS 
DO  300  INOEX=l,KX 

FI(5)  = (XIKM)  -XI3(M)  ♦CGHASS(  M ) » (XBA  RCM(  3,  M)  * *2 

-XBARCM(1,H)**Z) )*GENVEL (1)*GENVEL(4) ♦CGHASS(H) 

*X0ARCM(2,  M)*X3ARCM(3,M)  •GENV EL  (4 ) • GENV E L ( 5 ) + 2.  0 
♦GENVEL (5) •CGMASS(M)*X8ARCM(1,M )*GENVEL ( I NDE XY-l) 

-2.  0*GENVEL  (1 ) ♦C GMASS ( M)  ♦XB  ARCM  (3,  H ) ♦ GEN  VEL  ( IND EXY) 

-2.  0»GENVEL  (4)  ♦C&MASS(M)  *XBARCH  (1,  M)»GENVEL(  INDEXY) 

♦ GENVEL(l)  ♦(XIL(M)  ♦XI2<M)  -XI3(M)) 

♦GENVEL(INDEXY«-t)-GENVEL(4)*(XI2(M)  ♦•XI3(H)  -XIKM))* 
GENVEL(INDEXY-2)«-FI(5) 

+2. 0*GENVEL (5 ) *C GMASS ( H) •XBARCM ( 3, H) * GE N VEL ( INOEXY>2 ) 
FI(6)  =FI(6)  ♦GENVEL(4)*(GENVEL(3)*CGMASS  (m}+2.  0*C GMASS (M) 
♦GENVELdNOEXY)  )-GENVEL(5)*(GENVEL(Z)*CGiASS(M)*2.0 
*CGMASS(M»  *SENVEL(INDEXV-1)  ) 

FKl)  = (XI2(H)  -XIl(H)  ♦CGHASS(H)*  (XBARCMd.M)  **2 

-XBARCM  (2,  H )**2  ) ) ♦GENVEL(  4)  *GENVEL(  5) -CGHASS  (M) 
*XBARCM(2,M)*X8ARCM (3,M)*GENVEL ( 1 ) * GE NVE L ( 4) *2. 0 
♦GENVEL  (1)  ♦CGHASS  (M)*(XBARCM(  2,  M)  * GENVEL  ( I NOEXY ) 

♦ XBARCM  (1,H) 

♦GENVEL  (INOEXY-1)  )-GENVEL(5  )♦  (XIKM)  ♦XI3{M)  -XI2(M)>* 
GENVEL(IN0EXV^1)^G£NVEL(4)*  (X  I2(M)  ♦XI3(M)  -XIKM) 

RFORCE 
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vi^CAiro^ 


» *GENVEt<IM0E<Xy*2)*FI<l) 

-2,  O^GENVEL  (4)  *CG  FASS(M»  *XBARCM  U,  M ) ► GEN^EL  ( IN0EXY«-2) 
i-T  * o.  -2* p*GEf^tfEL  C5  > *GGMASS<M)  ♦XBARCM  (2,  M)  ^GEMtfEL  < INDEXY*2) 
FI(2>  = -GEHVEH1)*CGE>IVEH3)"^CGMASS(M)  «-2.0*3G'4ASSCM>^ 
»GENVEL<INOEXY)  »+FII2) 

GENVELCINOEXyI^M*-*^^'''^'^''"^^*''’  ♦2.0»3GiASS(M»* 

FI(3I  = &ENVEL(1)»(  GENVEL(2)*CGMASS<M)«-2.0»G6MASS(M) 

♦GENVEL  (iNOEXy-l)  )+FH3) 

-GENVEL  (4)»  (&En*VEL(6)*CGMASS(M)  +2.  O^GGiASSI  M)  ♦ 
GENVEL<IN0EXY+2» ) 

FI<4I  = CGMASS(M)*xaAR3H(2iM»»XBARCM{3,  H)*<GENYEL(1I*»2 
-GENVEL  (5)*»2)*(XI3<M)  -XI2  (M  )*CGHA  SS  f 1) 
*IXBARCH(2,H)*^2-X8ARCM(3,M)»*2))»SENVEL(1) •GENVEL (5) -2.0 
•GENVEL( 1) ♦CGNASSIM) *XBARCMC3iM )*6ENVEL ( INOEXY-1) 

-2. 0»GENVEL( 5) •CGMASS(M) *XBAr6m (2, M )• GEN VEL< INOEXY-1) 

TT  •:GMASSIM)*XBARCH  <3,M»*G£MVEL<IN0EXY<-2) 

KOOF-KBOF*  GEN/EL  (INDEXY *1)  , GEN VEL < I NDEX  Y*2 ) ) 

FUKDOF)  = F1XJ(CSMASS(M)  ,X8ARGMC1,MI  ,X 8ARCM(  2,  ,1 1 , 

1 X8ARCM<3,M>  ,GENWEL<INOEXYUGENVELIINOEXY»b)  » 

XDOF  = KDOF4-1 

<00F=  KOOF*-! 

KDOF-  <DOF*  NOEXY  + 2),  GE NVEL  ( I NDE  X Y-2) ) 

FIJKO on ^=iFITHET(M, GENVEL (INDEXY+1), GENVEL (INDEX Y-2) I 

FUxS  OF)  =FIZJ  tCGMASSCM)  ,XBARCM(ltH)  ,XBARCM(2,M)  ,<BARCM<3tM)  , 

I GENVEL  <IND  EXY-1 » tGENVELCINOEXYl) 

KOOF+l 


K30F= 
M = M+l 
300  INDEX 

RETUR 

END 


Y=rN0EXY+6 

N 
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SU3R3UTINE  SETA 

C THIS  S/R  SETS  UP  THE  ALPHAS*  K*  P<0)t  P<INF). 

C IT  ALSO  COMPUTES  THE  SPEED  OF  THE  SHOCK  DIFFRACTING  AROUND  EACH 

C FACE  (ft). 

COMMON/BLAST/  A, AO , A 01 , AD2 * ALT » AO , CO SA , OELT A , <B L AST ,PI MP,PR , 

1 PS,PSOEST,PS  0,?  0,01  HP,  QO.  RANGE,  RAN  GEM,  SF  <5 ) , S INA  , VS,  W,2 

COMHO N/LOAO/  AL ( 6) , A6( 6 ) , CK ( 6) , CP ( 6 ),  OOCOOE (&> , 

1 EEFf4,F.>,IIS,IS,  JF;IR(16,6,4J,KDE0UG,  KTSC4>  ,H36x, 

Z NPS(6,4I  ,PI,PSINF(6>  , PSO  0 ( 6)  , S ( 1 6,  6,  4)  , SIG  <3  ) , 

3 SIl(l&,6,4),SI2(16,G,4),SI3ti6,6,4),SI4ll&,S,4)  , 

4 SJ1(16,&,4>  ,SJ2(16,&,  4) , SJ3 ( 16, 6 , 4 ) , S J4 < IS  ,6, 4)  , 

5 TO  <16,6,41  ,HG<S) , XB3X < 16, 6, 4) ,YBOX (16,6,4) , 

S Za0X{16,6,4),  TOLAS! 

C 

A = AD*PI/180, 

COSA  = COS(A) 

SINA  = SIN(A) 


ALdI 
AL(  21 
AL(31 
AL(4) 
AL(51 
ALf61 


AeS( A) 

PI-AL<1) 

PI/2-  - A 
PI-AL<3» 

Pl/Z, 

AL*5) 

A1  = S1RT<(8.*Z^7.)*( 2,*2  + 7.1/ (7.*(7.*6.*Z))1 
A2  = SQRT((Z*1.  l^tZ  + T-.l/CB.^Z+Z.)) 

MW  = 5.0»Z*A0/SQRr(7.‘*<7.+6.*Z)) 

CKK  = .1  ♦ .07/Z 
00  ItO  1 = 1,6 
CALL  ORAGL(AL(I  ),CP  (1 1 1 
PR3  = 0. 

HF  = 0. 

AA  = 1. 

SISdl  = (-1.0)**I 

CK(I)  = CKK*(1.  - (AL{I)-PI/2.)*0.2*Z/(PI/2,) ) 

PSINF  (II  = PSO 
ODCOBEdl  = 1 
EE  = 1.  0 

IF  (ALlIl  .6T.PI/2.  *■  l.E-6)  GO  TO  105 

PSINFCI)  = PSO  ♦ 2.*CP(Il*(aO 

IF  (CPdl-GE-O.  0)  PSINF(I)  = PSO 

CK(I)  = CKK 

AA  = A1 

PRB  = PR 

EE  = 0. 

WF  = 2, 

IF  (ALdl.LT. PI/4.1  GO  TO  105 

AA  = A1  + (ALd)  - PI/4.)*(  A2-All/(PI/4.) 

PRB  = “R  ♦ (l.-PR)*(ALd)-PI/4.  )/(PI/4.  1 
WF  = -CALdl-PI/4.1 /(PI74.)  ♦ 2.0 
105  A6(I)  = A0*AA 

PSOO(I)  = PRB*PS0 
HG(I1  = HF»HH*SINA 

IF  (CPdl -LT.  0., AMO. ALd)  .GT. PI/2. ♦l.E-61  OOCOOECIl  = 2 
IF  (ALd) -LT. PI/6. I EE  = 1.  O-AL  ( 1 1 * 6. /P I 
EEFd.Il  = 1,0 
EEF{2,I1  = 1.0 
EEF(3,I1  = 1.0 
EEF(4,I)  = 1-0 

GO  TO  (107,107,108,109,110,110),  I 
■■  (A.GT.O.)  EEFd,!)  = EE 
(A.LT.O.)  EEF(3,I1  = EE 
GO  TO  110 

108  IF  (A.GE.0.0)  EEF(3,I)  = EE 
GO  T3  110 

109  IF  (A.LE.O.Ol  EEFd, I)  = EE 

110  CONTINUE 
COMPUTE  S-BAR. 

00  140  N=1,N0OX 
00  140  1 = 1,6 
NPSS  = NPSd.N) 

IF  (NP55.EQ.0)  GO  TO  140 
A A = AS  (I)  * WG(I) 

AB  = A6(I1  - WG(I) 
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107  IF 
IF 


SETA 


112 


115 


120 

125 


135 

140 


1000 

1100 


K=1,NPSS 

60  TO 
= 1 

= 0 


112 


SI4(<,It'N)/A6f  I) 


DO  135 
IF  a.LT.sf 
JFIRI  k.i.ni 
GO  TO  135 
JFIRIK.I^N) 

C C ^ 1. 

sjsIk.’iInj  - r-Cc*AA*s 

SJ2(:(«I.N) 

SJ4<l(,I,N) 

GO  Tl)  135 
CC  = — !■ 

SJ1(IC,I,N) 

SJ3flC,I,N) 

SJ2(K,I«N) 

SJ4(K«I,N} 

COMTi:  NJE 
CONTK  NOE 

WRITE  16,10001 
IF  (I,  DEBUG.  GT«  0>  KRITE  (6.11001 
FORMliT  ( 4H0EEF/ C4E1 5.  6)  1 

RETUVN  <6E15.&n 

END 


S11(K,I,  :N»*  (1.  ♦ 
SI3(K,I.N)*(1.  - 
SI2(K,IrN>/A6(I) 
SI4(<,I,N)/A6<I) 


CC»AB*COSA/KS)/A3 
CC*AA*COS  fl/VSl/A4 


EEF 

HG, A6,PSOO,PSINF,CK 
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c 

c 

c 

c 


SUBROUTINE  SFORCE ( FI » M» < DOF ,INDEXY) 

SFORCE  CALCULATES  NON-ACCLERATION  INERTIA  FORCES  FROM 
SHELTER  MASS. 

COMMON/CALC/  8E TA <3 , 3) , CRIT J5» , DCG, W M , ODM I^» OVEL » 

1 FAEROC50).FORCEI50I,GENACC<50I ♦GENOjS <5 0 )t GEN VEL< 50) »KTIRE» 

? PI  TCH*  PT  rIaL  (5)  • ROLLi  TIME.  TMINtXBA  RC  M ( 3t  13)  f Y AH 

l”"DEi:TIMlElioTI^G5i!ll’.{sOASIil5“N6lS3?:S?Dt5^<5o”sSpE: 

3 XBOSIEtZ) ,100(40) 

DIMENSION  Fill) 


FIYJI 

1 

Z 

3 

4 

5 

FIPHI 

1 

2 
3 

FIPSI 

1 

2 
3 

FIZJ« 

1 

? » 


X«J,)(LJ,VLJ,ZLJ.G<00TJ.GZ00TJ^j}MJMCE«EEtJl>*«Ny|L(2)->LJ 

-XMJ»GENVEL(4)*{  GENVEL<6)*2.0 
•GZOOTJ)  _ . ^ 

JCJ.GOTHET.GOPSn  = J«”<  ,;5i|  ^ Vl  J! 

GENVELIt)*GDTHET  ♦(<Il(J) 

•G£NVEL(5) *60?$! 

U,GOPHI,GDTHET)  = i J)  ^-XI  U U)  ) JGEN J EL 1 4 j ^ ^ ^ 

GENVELf5)*G0PHI  ♦tXI2<J)  ♦XISCJ)  -XIKJ))* 
ifMl  XL1.YLJ.ZLJ.  GXD  OTjyGYDOT  J)  =XMJ*<GENDEL  1 1 ) * ( XL  J *GEN  YEL  ( 4 ) 

YLJ*GENVEL(5))-KjMGEflVEL(4)i*2*GENYEH5)**2)+GENVEL(4) 

TGENVEL ( 3) +2. 0 •GYOOT J) -GENVELI5) *fGENYEL{2)*2. O^GXOOTJ)  ) 


-XI3«J) ) * 

♦ XI3  U)-XI2C J) ) 


INDEX 

Fill) 


2 

3 

4 

5 

3 

7 

1 

2 

3 

1 

3 

1 

2 

3 

4 

5 

3 

1 

2 

3 

4 

5 

3 

7 

B 


FI(4)  = 


^=^FI(1>MXI2(M)  -XIKM)  +CGMASS  <M  )» < X BA  RO  M ( 1 , M ) *»  2 
- XBARCM  I2.M)**2))  •GENVEL  C 4)*GENVEL<5)'“CGMA§SIH) 
*XBARCM(2.H)  ’^XBARCM  (3.M)*'GENVEL  (l)*GENYEL(4)+2.  0 

*GENVEL(ll*CGMASSCM)*XBARCMCZ,M  )*GpYEL  (INOEXY) 

-GFNVEL  C5) GEN  YEUI  NDEX  Y*- 1)  * C XI 1 ( M)  tXl3lM)  -XI2<M)) 
4.0*GENYk<4)*cUASS(M)»XBARCM<l.M)*G|NYEUINDEXY^2) 

.9  n»f,FNtft  L f5)*CGMASS(M)*  XBARCM  (2  .M)*G£NYEL(I  NDEXY»^2) 

FIf2)  = Fl4)-GENtfEm)»  (GENVEH3)*CGMA  Ss)m>42.  0*CGMASS  (M) 

♦ GlNVEL(5)M&ENiEH6)*CGMASSCM)  *2 . 0 *3 G MA  SS ( M)  * 

4(4)*CGMASS<M)HBARCM(2,M)*xeARCM(3.M)^(GENVEL(l)**2 

♦ 2.  0*GENY£LC4)  *CGMASS<M)  'XBARCM  <2.  M)  'G^NVEU  INDEXY) 
tGENVEL  (5)  'GENYEUI  NDEXY-1)  *<  XI KM)  4X13 1 M)  -XI2(M)) 

42.  0*GENVEL  <4 ) •CGMASS <M) 'XBARCM  <3. Ml ' 

FTI*;!  = FI(5)4{XUCM)^4i3CM)  *0  GMASS  (M  )' { XBA  R3  M ( 3 , M ) " 2 

— KB  ARC  M ENVEL  < D^’GENVELl^J  ♦'DGH  ASS  ( M) 

4XBARCM<hM)'XBARCM(3,M)'G|NVEL(4)'GpYEL(5) 

-2. 0'GENWELI1)*CGMASS(M)'XBARCM<3,M)' GrNYELIINDEXY) 
-2.0'GENVEL  ^‘^KC  GMASS(M) 'XBARCM  (1,M  I'G^NVEL  ( INDEXY) 

4.rcMuri  fi  i ( T NDEXY 4-1)  ♦<  KI 1 C rt)  4XI2CM)  — XIofnIF  • 

GENVEL<4»'GENVEL(INDEXY-1K<XI2CM)  4XI3(M)  -XIKM)) 

4 2, O'GENYEL t5 ) 'CGMASSIM) 'XBARCM  <3,  M ) 

= FIffe)4GlNvlL?4)KGENVEL<3)'C6MASS<M)42.  O'CGMASS(M) 
^'GENVELd'IDEXY  )l  -GEN  VEL  <5)'GENVEL<2)  'CGMASStM) 

OF)  = FIPSKMf  GENYEL<INDEXY4l)  ,0  .0  ) 

OFKFIYJ(CGMASS<M)  ,X8ARCMC1»M)  »X8ARCM(2»  M)  ♦XBARCM<3tM>»  0.0» 
GENVEL«1042*KA<LESI ) 

KOOF=KOOF41 

SFCRCE 


FI<6) 

L 

FKKO 
KDOF  ■ 
FI  (KB 
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FICKOOFI  = FIPHIJ(M,D.0*GEMVEL(IMOEXY-l»l 
)<OOF=K30F+1 

^FI(KDOF)=F1|J(CGMASS<MIjXBARCM(1,M>  ,X8ftRCM(2,Ml  ,<8ARGH<3,MI,0.a 

M = MH  ’ 

KDOF  = KDOF+l 
INDEX Y=rN0EXY*5 

RETURN 

END 

SFORC 
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SUBROUTINE  SOLVE  <4  ♦ N , MDI M*N DET»  IP»  OE  T,  8 ) 


A = ORIGINAL  MATRIX. 

N = ACTUAL  DIMENSIONS  OF  A. 

NOIM  = DECLARED  DIMENSION  OF  A IN  CALUNG  PROGRAM. 

NOET  = DETERMINENT  CODE. 

0 = NOT  CALCULATED. 

1 = CALCULATED. 

IP  = INDEX  OF  K-TH  PIVOT  ROH. 

OET  = DETERMINENT  OF  A. 

8 = RIGHT  HAND  SIDE  VECTOR, 

REF.  - COMMUNICATIONS  OF  THE  ACM,  APRIL  “AGES  268-270, 

AND  PAGE  274. 

DIMENSION  A fNOIM,  NOIM  ) , I P «NOI M)  , B <N  DI M) 

IPtN»  =1 
DO  6 K=1,N 
IF  (K.EQ.N)  GO  TO  5 
KP1=K+1 
K 

DO  1 I=<P1,N 

IF  (IBSfA(I,K)).GT.ABS(A  (M,XM)  M=I 

1 CONTINUE 
IP(K>  =M 

IF  (M.ME.KJ  IP<N»=-IP(N» 

T = A 

A(M,(I=A<K,K> 

AfK,<)=T 

IF  (T  .ED.  0.  01  GO  TO  5 
DO  2 I = KP1,N 

2 A CI,K)=-A<I,K)/T 
00  4 J=KP1,N 
T=A IM.J) 

A CM,J)  = A(K, J) 

A <K,J  )=T 

IF  (T. ED. 0.0)  GO  TO  4 
DO  3 I=KP1,N 

3 A <I,J ) = Af I, J)4AII,K)*T 

4 CONTINUE 

5 IF  CA  IK.Kl.EQ.O.O)  GO  TO  15 

6 CONTINUE 

IF  fNDET.EQ.  0)  GO  TO  11 
OET=IP<N) 

00  10  I = 1,N 

10  DET=OET*A (I, I) 

11  IF  (M.EQ.l)  GO  TO  14 
NM1=N-1 

DO  12  <=t,NMl 
KP1=:<*1 
M=IPC  K) 

T=BIM) 

B<M)=BfK) 

8(K)  = T 

DO  12  I=KP1,N 

12  B(1)=B(I)*AII,K)*T 
DO  13  <B  = 1,NM1 
KMl=N-<3 

K = KHl*l 

B(<)  = BIK)/A<K,K> 

T=-BIK) 

DO  13  1=1, KMl 

13  B(I)=BCIl+Aa,K)*T 

14  B(1)=B«1)/AU,1> 

GO  TO  17 

15  WRITE  (6,16) 

16  FORMAT  (29H0SINGULAR  MATRIX  IN  S/R  SOLVE) 

N = Q 

17  RETURN 
END 

SOLVE 
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SUBRDUriNE  SUMARr 

OUrPliT  MINIMUM-HA<T  MJM  INFORMATION 

OOMMON/CALC/  BETA  B, 3 ) , GRIT (5) , OCG, DC  GO* DDMIN, DVEL, 
t FAEROISO) .FORCh ( 50 ) , GENACC <50 ) , &ENOI S (50 ) , GEN VEL < 50) ,KTIRE* 

(5)  ,ROLL»TIME,TMIN,<BAR3M(3,13).yAH 
COMMON/MAXMIN/  AMAX  (5  0)  , AMIN (5  0)  , ANGLE(19)  ,CIPI19,6)  , 

1 Cr Q(19*6) ,CPSIO(  19*5)*  CPS 0(19, 6) ,CRK H(1 1 ,5 ) , ON AX (50) , 

2 OHIN(5  0)tIFL  119,6)  , JH AX, <MAX,  SMA X ( 10  0) , SMI  N(  10 0 ) , 

3 TAMAX  (50)  jTAMINI50)  ,TOMAX(50)  , TOMI  N(  50) , TSM  AX  ( 10  0 ) , 

TSMINI 100)  ,TVMAX  (50)  , TVHIN(50I  , VMAX(  50),VM1N(5  0)  , 

5 YIELD(6I 

C OH  MON/ OPTION/  lOPT,  JGRAPH,  KAXLB(2)  .KAXLES,  K3  0;,  KD AM, KERR,K3 WI R1 , 


wr  1 1 unf  fNHALCLSi  ^U  An  t 

KSXIRZjK  PACKS,  <RIG  10,  KSHFLT,<H  IRES, MASSES,  MOO  F,MSPRNG, 
NASPR(6)  ,NCALL,NCASE,NJ0B,N0UT,NPRINT,NRSPR(3)  ,NSPRNG, 


( XB0GIE<2) ,100(40 ) 
WRITE  (6,1) 


NTRIAL, 


WRITE  (6,21 
WRITE  (6,5) 

DO  10  0 INOEX=l,MOOF 

100  WRITE  (6,3)  INCEX,OHAX(INOEX),TDMAX(INOEX),OMIN(INDEX)  , 
1 TDMIN(INDEX) 

WRITE  (6,4) 

WRITE  (6,5) 

00  200  INOEX=l,MOOF 

2 00  WRITE  (6,3)  IN  DEX,  VMAX  (INDEX  ) ,TVMAX(  INDEX  ),  W MIN(INDEX)  , 
1 TVMIN(INDEX) 

WRITE  (6,6) 

WRITE  (6,5) 

DO  30  0 INDEX=1,M00F 

300  WRITE  (6,3)  INOEX  , AM  A<  ( I NDEX)  , I AMAX  ( IN  DEX)  , A MI  N ( I NOEX  ) , 
I TAMIN(INOEX) 

IF  (M ASSES* EQs 1!  GO  TO  500 

WRITE  (6,7) 

00  400  IND£X=1,MSPRNG 

400  WRITE  (6,8)  IN  QEX , SMA  X ( I NDEX)  , TSHA  X(  IN  OEX)  , SMI  N ( INOEX)  , 
1 TSHIN(  INDEX) 

500  CRIT(l)  = DDMIN/OCGO 

IF  IDVEL.GT.O.)  WRITE  (6,9)  DVEL.TMIN 
IF  lOVEL.EQ.O.)  WRITE  (6,10)  OCG  6,  ODHIN  ,TMIN,  CRI  T (1) 

IF  (TMIN.Ea.TIME.ANO.DIfEL.EQ.O.O)  WRITE  (6,11) 

RETURN 


FORMAT  STATEMENTS. 


1 FORMA 

2 FORMA 

5 FORMA 
1 

3 FORMA 

4 FORMA 

6 FORMA 

7 FORMA 

1 14W 

8 FORMA 

9 FORMA 
1 14rt 

10  FORMA 

1 25T 

2 2511 

3 25M 

4 2SM 

11  FORMA 


T (//20H  SUMMARY  INFORMATION//) 

T {14H  DISPLACEMENTS,/) 

T <5H  OOF  ,5(IH.  I,7HMAXIMUM,7(1H.)  , 

4HTIME,2X,5(1H.)  , 7HMI NIM  UM,  8 « IH.  ) , 4MTI  ME  , /) 

T (I4,2E13.5,lX,2Ei3.5> 

T (IIHQVELOSITIES,/) 

T (14H0ACCELERATIDNS,/) 

T (22H0 SPRING  MAX  DEFLECTION,  7 (1 H. ) , 4HTI1E, 4( IH.) , 

MIN  0EFLECTIDN,5(1H.),4HTIM£,/) 

T <17, 2X,2E13,  5,  3X,2E13.5) 

T (19H0VEHICLE  OVERTURNED/ 

VELOCITY  = E15.6/14H  TIME  = £15,5) 

T C25H0VEHICLE  REMAINED  UPRIGHT/ 

INITIAL  C5  DISTANCE  = £15.6/ 

MINIMUM  CG  DISTANCE  = £15.6/ 

TIME  OF  MINIMUM  = E15.6/ 

CRIT  = E15.6) 

T (7eH0***  WARNING  - MINIMUM  CG  DISTANCE  DCCURREO  AT  LAST  INT 


SUMARY 
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lEGRAriON  TIME  STEP 
END 


SUMftRY 


204 


SUBROUTINE  SUHTAB  (N,K3K) 

COMHO N/BLAST/  A, AO, AOl. A02, ALT. AO, COSA *OELTA , <BL AST ,PI MP,PR , 

PS  ,PSOEST,PSOiPO,QIMP,QQ,RANGE,RANG£M.SF<5»,SINA,VS,H,Z 
CONMON/CALC/  BET A (3 , 3> , GRIT (5) , 0C6, DC  GO,  OOMIN,  0 VEL, 

1 FAIERO(50»  .FORCE  (50),  GENA  CC  <50 ) ,GEN0IS<5  0 ) , GENV  EL  C 50)  ,KTIRE, 

2 PI  T:h,PTRIAL<5)  .ROfLL,  TIME,TMIN,XBARCH(3,13)  , YAH 
CONKON/HAXHIN/  AH  AX  <50  ) . AMIN  <5  0)  , ANGL  E<  19)  . C IP  ( 19,  6)  , 

1 CII)<19,6),CPSia<l5,6)  ,CPS0<19,6)  ,C  RKH<  19, & ) , DNAX <50 ) , 

2 □H;[N<50)  ,IFL<19«6)  ,JMAX,KHAX,  SHAX <10 0 ) , 3NI  N<  10  0)  , 

3 TAMAX<  50)  ,TAMIN<50  »,TDMAX<5Q)  ,TOMIN<  50)  ,TSMAX  <100) , 

\ TSMIN<100),TV1AX  <5  0)  , TyHIN<50)  , VHA  X<  50)  , tf  H IN  < 5 0 ) , 

5 YIELD  <6) 

COHMON/OPTION/  lOPT,  JGRAPH,KAXLB<2) ,K AXLES, KBOS , KO AM, KERR, KG H 1^1, 
1,  KG WIR2,KRACKS,<RIGI0,KSHELT,KMIRES .MASSES,  MDOF.MSPRNG, 

NA:>PR<6)  ,NCALL,NCASE,NJOa,NOUT,NPRlNT,NRPR<3)  ,NSPRNG,) 


C 

c 


e nH  o,  , no 

3 XBI)GIE<2)  ,IOD<40) 

DIMENSION  KFLAG<2) 

DATA  K?LAG/2H  ,2H*  / 

IF  <N-1)  50,  200,000 

ONLY  ENOUGH  TABLE  SPACE  FOR  6 YIELDS  AND  19  ANGLES. 
50  JHAX  ::  0 
KMAX  =:  0 

IF  <j(DAH.EQ.O)  GO  TO  150 
DO  101)  K = l,6 
DO  10  0 J=l,19 
CPS0<,J,K)  = 0. 

CIQ<J.»K)  = 0. 

CPSiaiJ,K)  = 0. 

CIP<J.,KI  = 0. 

CR<M1J,K)  = 0. 

IFL<J.,<)  = KFLAG<1) 

RETURN 


,NTRI  AL, 


100 

150 

2 00 


60  TO  300 


300 

400 

5 00 
600 

700 

800 


IF  <JMAX.GT.0) 
JMAX  :=  1 
KMAX  ::  1 
ANGLE Tl)  = AO 
YIELD  U)  = W 
J = 1 
K = 1 
RETURN 


DO  4011  JJ=1,JFAX 
J = JJ 

IF  <ANGLE<JJ).EQ,AO) 

CONTI NJE 
JMAX  " JMAX  ♦ 1 
J = JMAX 

ANGLE  UMAX)  = AO 
DO  60  11  KK  = 1,KFAX 
K = KIC 

IF  <Y:[ELD<KK)  .EQ.M)  &0  TO  700 
CONTI  NUE 

♦ 1 


GO  TO  500 


KMAX  KMAX 
K = KMAX 
YIELD IKMAX) 
RET UR N 


= H 


900 


IF  <JNAX.EQ.O)  GO  TC  900 
IF  <KERR.GT.O)  IFL<J^K)  = KFLAG<2) 

IF  <KO<.NE.  1)  IFL<J,K»  = KFLAG<2) 

IF  <THIN.Ea-TIME.  ANO.;OVEL.EQ.O.OI  IFL(J,K) 

CPS0<J,K)  = PSO 

CIQ<J,<)  = OIMP 

cpsiatj,K)  = pso*aiHp 

CRKM<J,K)  = RANGEH/IOOO. 

CIP<J.,K)  = PIMP 

RETURN 

END 


= K-LAG<2) 


SUMTAB 
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c 

c 

c 


SUBROUTINE  TIRES (XSu ,GF> 

SUBROUTINE  TIRES  FINOS  THE  GENERALIZED  TIRE  FORGE 

CONMON/AOAM/  KSTART  ,NEQ»NIT,ClR ( 10 0>  »aRO< 6,  1 00 ) , QRP  U0  0),TIO12» 

1 TI02,TI024*TI072 

COMMON/CALC/  BETA (3 , 3 » , CR IT ( 5» , DCG, DC G OiDOlIN , OVEL , 

1 FAEROI50)  ,FORCEI50I  i6ENACC(50l,GENDIS(50),G£NlfEL<50»  ,KTIRE, 

? PITGH,PTRIALCi),RCrLL,TIME,TMIN,X8ARCM(3,  13),  YAH 
COHMON^DATAIN/  CGNASS (I  3) ,CGPOS<3.1 3) ,OAMPF<&09) tOAHPV(600) , 

1 OELTIM,ENDTIM,G,GS(2) ,IS0AMPI50I ,m6imOP,NPOAHP<50I .SLOPE, 

2 XI YZ.XIl fl3) ,XI2 (131, XI3(13> , DELTX ,OELTX 1,  OPRT , OPRTl ,ENOTX 
COMMON^INTFLG/  IFIRST 

COMMON/JFTRIM/  JTRIM 

COMMON/MOVING/  XOSAVE , X OB AR,  XS A VE , XTB  (5»  , YOSAVE,  YOBAR,  YSAVE, 

1 ZOSAVE,ZOBAR,Z5AYE,ZTB(5) 

COMHON/OPTION/  lOPT  , JGRAPH,  tCAXLBiZI  ,XAX  LES,K30G,  <DAM,KERR,KGWIR1, 

1 XG HIR2, KRACK S,KRIG ID, KSHELT.KHIRES .MASSES, MDOF.MSPRNG, 

2 NASPR(6»  .NCALL.NCASE,  NJ03,N0UT,NPRINT,MRS3RI3I  ,NSPRNG,NT RI AL , 

3 XBOGIE(2>,IDO(U) 

COMMON/SPRING/  FOFX  (6  0 0)  , JCURVE(52)  , M AX  SPR,  NPPC ( 5 2 ) , 

I X(  600» 

COMMON  /TIREC/  CN.C  T,NTIRES(6)  ,NTSPRN,R  H,  TLX  ( 3, 6 ) ,TLY  (6 ) ,TL  Z(6)  , U 
COMMON  /TIRSAV/  DEL TMX ( 3, 2, 18) , DELTNl (3 , 2,1 8) ,5t TNX ( 2, 16) , 

1 DTTN1(2,18),SLID(2,18) 


GF  (1) 

BATA(3,3) 

A (2), AM(3),flATAT( 3, 3),CK(2) ,OELTD(3),  DIF(3) ,E(3),EU(3) , 
- - GVT(3),MH<(2) *POSO(3),RN<(3), 


OIMEN SION 
DIMENSION 
DIMENSION 

1F0RB(  3),  GHAT  (3;  21  , G MSQ  ( 3 , 3)  , G VNU  ) , GV  t ( 
2TGS(2),V8(3>,XTBAR(2)  ,YTBAR(2),ZT8AR(2) 
DIMENSION  00(3),GVTDI3),EUF(3) 
EQUIVALENCE  (BETA (1 , 1 ) .BATA (1, 1) ) 


TRANSPOSE  BETA  MATRIX. 

DO  20  10=1,3 
DO  20  IE  = 1,3 

20  BATAr(ID,IE)  = BArA(IE,IO) 
DO  50  ID=1,MOOF 
50  GF(IO)  = 0,0 

IF  (<TIRE.GT.0I  GO  TO  80 

KTIRE  = 1 
IT  = 0 

DO  55  lA  = 1,KAXL£S 
NTT  = NTIRES(IA) 

DO  55  NT  = 1,NTT 
IT  = IT  ♦ 1 
DO  55  IR0L=1,2 
SLIO( IROL.IT)  = 0. 

OTTNl (IROL, IT)  = 0.  0 
DO  55  ID  = 1,3 
55  DELTM1(10,IROL,IT)  = 0. 

00  57  10  = 1,3 
GVN(ID)  = 0. 

57  GVT(IO)  = 0. 

GUNT  = 0. 

GVTT  = 0. 

VT  = 1. 0 

EPS  = 0.0 

NX  = NPPC(NTSPRN-l) 

NX1=N PPC(NTSPRN) 

JP=JCURVE (NTSPRN-1) 

JP1=J CURVE(NTSPRN) 

NDOFA  = 6 «^2*KAXLES 
IF  (K AXLES. EQ.l)  N00FA=3 
TGS  (1 ) = TAN(GS  (1)  ) 

TGS(2)  = TAN(GS(2)) 

A (1)  = 0.0 
A(2)  = O.Q 
IF(XSC.GE.O. 0)  A(2) 
IF(XSC.LT.O.O)  Ad) 

SE  = SIN(EPS) 


= -XSC»(TGS(2)  -TGS(l)) 
= XSC*(TGS(2)  -TGS(l)) 
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60 


80 


SINCGS(IK)) 

:;OS(GS{IK)) 

: 1»IKI  = “CE*SGS 
[2,1K>  = C6S 
!3jIK»  = SE*SSS 


100 


MTr=N 
DO  IQ 
IT  = 
TLX8 
CALCJ 
DO  ID 
IFCIR 
OISXs 
DISY= 
XTBAR 
13ATAI 
If  T8AR 
13ATA( 
ZTBAR 
1*BATA 
CONTI 
IF  Cl 
IF  CM 
OX  = 
02  = 
XTBCl 
XTBCZ 
ZTBIl 
ZTBCZ 
XTB(5 
ZTBCS 
GO  TO 
IF  cr 
IF  CM 
XTBC3 
XT8CV 
ZTBC3 
ZTBC^ 
CONTI 
CALCJ 
OIFCl 
DIFC2 
0IF(3 
AL  = 
XI  = 
TLXB 
DO  10 
IF  (I 
FTO  = 
XOFK 
00  20 
CK(  I< 
l-TGSC 
HHKCI 
l-ZTBA 
200  CONTI 
HH  = 


rtTB  = TLYCIA)  - XBARCMC2,  IA«^1) 


SGS 
CGS  - 
gmatk 

GMATI! 

GMATd 
COMT]:i 
NX  =2 

IFC  GS:  Cl)  .EQ.GSC2II  NK=i 

IT  = 0 
TLY8  = 0. 

I.KAXLES 
IQRA  = 5 ♦Z^IA 
IQYA  =^igRA  *1 
• ■ -!  ASS  cS.  GT « 1) 

TIRESCIA) 

00  MT=1,NTT 
IT  + 1 

= TLXCNT.IA) 

o'lloL-l'''P  P°-^TI0N 

OL.EQ.i)  *TLXB=-TLX8 
TLXB-TLY8*GENDISCIiRA) 

♦TLY  fIA)+TLX8*6EN0ISCIQRA) 
iJ3?HlZCIA?*'^  ♦BATA  C1,1)*0ISX  ♦BATAC1,2)*0ISY+ 

CIROL)  = YOBAR  ♦ 8AT A C2, 1) ♦OISX 
2,3)  *TLZCIA)fRN- TLYCIA)  ^ 

cIJsWTLZCIAf^  ♦3ATAC3,1)*0ISX  ♦BATAC  3.2)*DISY 
NJE 

A.NE.l)  GO  TO  IZO 
T-NE.NTT)  GO  TO  1^0 
-BAT  AC1»2) 

-0ATAC3*2)  •RiC 


♦BATAC2,2  )*DISY  + 


1 20 


140 


OX 

n 

DZ 

OZ 


GO 

TO 

OX 

ox 

OZ 

DZ 


)=XTeARCl)  ♦ 

)=XTBARCa»  ♦ 

) = ZTBARC1)  ♦ 

)=ZTeARC2)  *■ 

)=XTBC1) 

)=ZT8fl) 

140 

A.NE.KAXLES)  GO  TO  140 
T.NE-NTT)  go  to  140 
)=XTBARC2)  ♦ 

►=XTeARCl)  * 

»=ZTBARC2)  *■ 

>=ZTeARCl)  ♦ 

NJE 

1 -'^tbarcd 

-ZT8ARC1) 

i>IFl}?JcE”;;Fi;)S|f"''’^  * 0IF(5|..2. 

" TLXCNTtIA) 
jlO  IROL=l,2 

R0Lj,EQ.2)  TLXB  = -TLXB 
u«  u 

==l 

0 IX=1,NK 

♦TGSCIK)**2)  -(OIFC2) 

PiJc. 

Hi^Kd) 


c 

c 


ZiO  IF  (HH<ll»,LE.HH<<  Z)  ).  5Q  TO  2Z5 
220  HH  = HtlK<2) 

KQFK  =2 

CALCIILRTE  TIRE  NORMAL  DEFLECTION 
225  DELN  = HW  -RW 


IF<OELN.LE.  G- 0>  GO  TO  275 
SLIOCIROL,IT)  = -1. 

OTTNl  (IROL»IT)  = 0. 

DO  250  10  = 1,3 

DELTM If IO,IROL,IT)  = 0. 

250  CONTINUE 
GO  TO  1000 

275  BODY-AXIS  COMPONENTS  OF  UNIT  GROUND 

^ CALL*mDlT°I8ATAT^SNATC1.K0FK1,RNK,3,3,3,3,11 

IF  {lOpflEQ*lIoLlA.GT.t?°GO  TO  400 
IF  <M ASSES. EQ.1»  GO  TO  400 

■=  300  rStfr?'Lf!:?fW^RS?JlEN5?i:?Sr!lEWE???{  t’'f^2.IA..CENOEL<5.  - 

%8CZ»=TLXB*GENVEL(l)5GENVEL<3>-TLZ{IA)*GENYEL(4lHLXB*GENVEL(nRA» 

^VB(31  ^=MtlY(IA)-RN)»GENVEL(4)  - TLXB  *GENVEL  I 5)  ♦ GENVELf6» 

CALCULATE  WHEEL  VELOCITY  NORMAL  TO  GROJNO  AND  BODY  AXIS 
COMPONENTS  THERE  OF 


C 

c 

c 

c 


GWMT  = RNK(1)*VBIH  ♦ RNK(2)»VB(2>  RNK(3)»V8f3l 
DO  310  IJ  = 1,3 
GVNfIJt  = RNK(IJ>*GVNT 

c Calculate  body-axis  components  of  wheel  velocity  parallel 
C TO  GROUND  AND  TOTAL  VE.OCITY 

DO  320  10  = 1,3 

320  GVTflJ)  = VBfIJ)  - GVNCIJ) 

IF  f I OPT. EQ« l.OR.I A .GT. 1 ) GO  TO  360 
IF  (HASSES. EQ.l)  GO  TO  360 

FOR  FRONT  AXLE,  TRUCK  ONLY. 

CALCULATE  COMPONENTS  0-  UNIT  VECTOR  IN  GROUND  PJ-ANE 
NORMAL  TO  INTERSECTION  OF  WHEEL  PLANE  AND  GROUND  PLANE. 

CALCULATE  COMPONENTS  OF  VECTOR  IN  AXLE  DIRECTION 

mo  .he 

. AH,3..RRK.3. 

EMAG  = 0.0 
DO  33  0 11=1,3 
Efll)  = RNKCII>*AN  -A'M(II) 

EMAG  = EMAG  ♦E(^)♦♦^ 

3 30  CONTINUE 

EHAG  = SQRTfEMAGI 

CALCULATE  DESIRED  UNIT  VECTOR,  BODY  AXES(EU)  AND  FIXED  AXESfEUF* 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


DO  340  11  = 1,3 
EUCII)  = EflD/EMAG 
340  CONTINUE 

345  EUFail*=  BAfi(II,l»*EUfl)  ♦ BATA  ( 1 1.  2)  *EU(  2)  f BATA  (II  ,3) ’EUfS) 
IF  (TINE. LT. 0.0)  GO  TO  400 

CALCULATE  THE  MAGNITUDE  OF  COMPONENTS  OF  THE^WHEEL 
VELOC ITY^  PARALLEL  TO  GROUND  IN  OIRECipN  OF  t VE  ^ TOR 
GVTT  = GVT(1)*EU(1»  ♦ GVT(2)*EU<2>  ♦ GVT(3)*EU(3) 
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c 

c 

c 


c 

c 

c 


c 

c 


CALCJLATE  BODY  AXIS  COHPONENTS  OF  GVT 
DO  4t50  11  = 1,3 

350  GVrai)  = EUCII  ) * GVTr 
GVTT=A8S(GVTT) 

GO  13  565 

FOR  ALL  OTHER  AXLES. 

360  GVTT  = GVT(11**2  ♦ GVT(2)*»2  *■  GVTI3}**2 
GVTT  = SQRT(GVTT» 

3 65  YT  = Gi/TT 

IF  itfT.EQ.O.O)  VT  = I'.O 
D = DTTNKIROL,  IT) 

IF  ID.EQ.O.O)  0 = 1.0 
DO  37  0 I0  = t,3 

DDCID)  = OELTN1CIO,IROL,IT) /D 
370  GVTDIID)  = ( B ATA  « ID  ,1 ) *G  VT  < 1 » *■  BAT  A ( ID  , 2»  * GV  T(  2 ) 

L 3ATAfID,3>»GVTf3n/VT 
FIND  NORMAL  SPRING  FORCE  FROM  DEFLECTION  DELN 
400  CONTINUE 

CALL  INT1(DELN,NX,X(JP>,F0FX( JP>,FN) 

FN  =:  FN/CK(KOFK) 

FIND  TANGENTIAL  5PRIf*G  FORCE  ON  THE  TIRE 
CALCULATE  MAXIMUM  TAN'GENTIAL  SPRING  FORCE 

FTMAX  = U*FN 

IFCiri  ME.LT.  0.  0)  GO  TO  450 
OEL  = 0. 

VDT  = GVTT^OELTIM 
IF  [SLID<IROL,IT)»  405,410,600 
405  SLIDCIR0L,IT)  = 0. 

FT  ::  0. 

DELTOID  = 0. 

DELrO(2)  = 0. 

OELTOni  = 0. 

DELTT  = 0. 

GO  TO  700 

calculate  NEH  OISPLACE'IENT  COMPONENTS. 

DELfD(IO?~=’<OTTNl(rROL,  ITl  - DEL)*OOIIO»  ♦ VDr*GVTO(ID) 
GO  TO  470 
FOR  TRIM  ONLY 

CALL  MULT  (GM AT <1, KOFK) , GMA T( l,KOFK ) , GMSQ, 3, 1 ,3 , 1, 3> 

DO  46  0 10=1,3 
00  460  IE  = 1,3 
GMSQUEiIO  = -GMSQIIE.IOJ 
IFdE.EQ.IO)  GMSa(IE,I3l  = 

CONTI  NJE 

POSDI  1»  =XT8AR(IR0L)  -TL<8 
P0SDI2J  = YTBARtlROLI  -RW 
POSDI  3I=ZT8AR(IR0L) -TLZIIA)  , , , , 

CALL  MULT  t GMSQtPDSO,  OE. TO, 3, 3, 3,  3,  1> 

IF  (I  OPT.  EQ.l.OR.IA  .G’T.l  I GO  TO  475 
IF  IMASSES.EQ.l)  GO  TO  475 


410 
4 25 


450 


460 


470 


1.0  ♦■GMSQIIE.IOI 


4 72 


C 

C 


c 

C 


4 75 
480 


FRONT  AXLE,  TRUCK  ONLY. 

OELTT  = DELTO  (1  »*EUF(1»  + OELTO  < 2 » » EUF(  2)  ♦ DE.T3  < 3>  *EUF(3> 

00  472  11=1,3 

DELTO(II)  = EUF(II) *OELTT 

DELTT =ABS<OELTT» 

GO  TO  480 

FOR  ALL  OTHER  AXLES. 

CALCULATE  OELT 

DELTT  = OELTD<D**2  ♦ DELTD<2>**2  *■  OELTO(3)**2 
DELTT  = SORT (OELTT) 

IF  (SLlDdROL.ID.EQ.l.O)  GO  TO  700 
CALCULATE  SPRING  FORCE  FT 

CALL  INTI  (OELTT.NX  1,X(JP1)  ,FOFX(  JPl)  ,FT) 

IF  (JTRIM.EQ.O)  GO  TO  700 
IF  FT  LE  TO  FT  MAX  ACCEPT  FT 
IF(FT  .LE. FTMAX)  GO  TO  700 
IF  (TIME. GE. 0.0)  GO  TO  485 
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WRITE  <6,1)FT,DELTT,FTMAX,U,FN 

KERR  = 2 

RETURN 

C START  SLIDING. 

485  SLID* IROL,IT)  = 1. 

FT  = FTMAX 

CALL  IWTl  (FT,NX1,F3FX(JP1>»X(JPI»  ,OELTM) 

IF  IDElTT.EQ.O.)  OELTT  = 1. 

DO  49  0 lU  = li3 

490  DELTOIID)  = 0ELTM*0ELT0(  ID)/OELTT 
DELTT  = OELTM 
GO  TO  TOO 

: TIRE  IS  SLIDING. 

600  DV  = D0( 1 )*GVTD(1)  ♦ DO < 2 ) *S VTD( 21  + DO ( 31  * G VTO I 3) 

CALL  INTI  CFTMAX,NX1,F0FX(JP1),X( JPl)  ,OELTW) 

F F ~ FTM  A X 

IF  (OELTM. GT.VDT)  GO  TO  650 
00  620  ID=1,3 

620  OELTOCIO)  = VOT*GVTO(IOI 
GO  TO  470 

^ 650  del  = DTTNlf IROL.IT  ) ♦ OV*VOT  - SQRT( DELTM**2  - ( l.-OV**2> •VDT** 2» 
: CHECK  TO  SEE  IF  SLIDING  IS  CONTINUING. 

IF  (OEL.GT.O.OI  GO  TO  410 
: SLIDING  IS  STOPPING. 

SLIO( IROL.IT)  = 0. 

DEL  = 0. 

GO  TO  410 

7 00  CONTINUE 

: CALCULATE  NORMAL  DAMPING  FORCES 

' FNO=CN*GVNT 

; CALCULATE  TANGENTIAL  DAMPING  FORCE 

IF  (SLID  (IROL.IT)  .E3.  0..  AND, FT. LT. FTMAX)  FTD  = CT^GVTT 
. FIND  TOTAL  FORCES  IN  BODY  AXIS  COMPONENTS 

TERMl=FN-FNO 
DO  75  0 1 0 = 1,  3 

750  FORBCIO)  = TERMt*RNM  IO)  - FTO’GVT ( ID )/ VT 
IF  (DELTT.EQ.O.)  SO  TO  800 
DO  76  0 ID  = 1,3 
760  OOdD)  = 0ELT0(I0)7  DELTT 

CALL^  MULT_pATAT,00  ,EU,3,3,  3,3,  1) 

775  FORB(ID)  = HrB(ID)  - FT*EU(IO) 

: CALCULATE  THE  GENERALIZED  FORCE. 

8 00  GF(1)  =GF(1)-FORB(1)*(TLY(IA)-RM)«'FORB(2  )*TLX3 

GF(2)  = GF(2)  i^FORBd) 

GF(3)  = GF)3)  ♦FORB  (2) 

IF  (MASSES. EQ.l)  GO  TO  855 

=GF(4)-F0RE(2)  nEZ  ( I A)  ♦FORB  ( 3 ) *1  TL  Y(  I A)  - RW) 

GF(5) =GF(5) ♦FORB(l) *TLZ( IA)-FOR8(3) ♦TLXB 
GF(6)  = GF(6)  ♦F0RBC3) 

GF ( la RA) =GF(IQRA) ♦F OR B( 2 ) *TL X B 

IF  (lOPT  .NE.l)  GF(IQRA)  = GFdORA)  - FORBID* 

1 ( TL YB  “ RW) 

GFIiaYA)  = GF(IQYA)  ♦FOR0<2) 

SET  UP  N-1  AND  N-2  FOR  NEXT  TIME  STEP 
855  IF  (r  IME.LT. 0. 0)  GO  TO  1000 
860  00  900  10=1,3 

9 00  DELTMKIO, IROL.IT)  = DELTO(IO) 

DTTNl (IROL.IT)  = OElTT 
1000  CONTINUE 
RETURN 


1 FORMAT  (10X,30HTRUCK  SLIDING  IN  TRIM.  (TIRES)/, 
115X,22HF0RCE  (TESTED)  = , 

1E13.5 ,/,16X,21HO£FLECTION  (CALC)  =, E13, 5, // , 1 5K , 
222HMAX.  FORCE  = , E13. 5, / , 16X , 

321HMU  (INPUT)  = , El  3.  5 , / , 16X,  21 HNORMA  L FORCE 

4E13.5 ) 

ENO 


(CALC)  =, 
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ooo  o CIO  onoo 


SUBROUTINE  TRIM 


SUBROUTINE  TRIM  TRIMS  THE  STSTEH. 

COMMilN/BOTM/  EXPA N 1 10  0)  .NBOTOH  f 10  0)  .SBOTH  (1  00  ) . VELdOOl 
COMMUN/CALC/  BETA  13 ,3 ) *CRIT <51 , OCG, DC GOtOOMIM, OVEL , 

1 FKEROfSOI  , FORCE!  50  ) « GENACC  (501  , GEN  01 S (50 ) , GENVEL  (50}  , KTIREt 

2 P:tTCH,PTRiAL(5)  .ROLLtTIME,THIN,XBARCM(3,15},YAH 
COMMIJN/CHECK/  JOEBUG 

COMMON/DATAIN/  CGMASSdS)  ,CGP0S(3.13)  .0 AMPF (B 00 ) , 0 AMPV(60  0)  , 

1 OELTIH,ENDTIM»  G,  GS  (2  } , lSDAMP(50}  ,MOI MOPt  NP  DAM P (50 ) t SLOPE, 

2 X![  TZ,  XII  (13)  ,XI2  (13}  , XI3(  13)  ,DELTX  ,DELTX  1,  DPRT  , OPRTl  ,ENDTX 
COHMON/OELTAS/  DISP  tt'OO} 

COMMIIN^JFTRIM/  JTRIM 
COMMON  XLAMDA(100,44} 

COHMDM/MOVING/  XOSA VE, <OBAR,XSAYE,X TB  (5 } , YOSAVE , T OBAR.T SAVE, 

I Z|}SAVE,ZOBAR,ZSAVe,ZTB(5} 

COMMON^OPTION/  IOPT,jGRAPH,KAXLB(Z}  ,K AXLES, KBOG.KD AM, KERR, KG HIRl, 

1 KGHIRZ, KRACKS,KRIGID,KSHELT,KHIRES,M ASSES,  MO0F,MSPRNG, 

2 NASPR(6} ,NCALL,NCASE,NJ0B,N0UT,NPRINT,NRS3R(3} , NSPRNG,NTRIAL , 

3 XBOGIE  (2}.  100(40} 

COHMON/SPRING/  FOF X (6001  , JCURVE(52} ,H AXSPR, NPPC(52} , 

1 X(600} 

COMMON  /TIREC/  CM, C Ti NTIRES <6} , NTSPRN ,RM, TLX < 3, 6 } , TLY (6 ) ,TLZ (6} ,U 
COMMDN/TRMDIM/  ER(50I 
COMMON/HEIGHT/  HEIGHT, WGTS( 13} 


KTIRE  = 0 

JTRIH=0 

KDOF:=MDOF 

IF  dCAXLES.EQ.l}  KOOF  = 8 
DO  II)  IMDEX=l,KO0- 
GENO:[S(INOEX}=0.0 
GENVELdNDEX}  = 0. 

10  ER(II4DEX)3:0.00i 

IF(KIIIRES.GT.0}  CALL  PRETRM 
IF  dCERR.GT.fl}  RETURN 
N = 0 

00  15  INOEX=l,KAXLES 

15  N = NT:[RES  (INOEX}*N 
TOTAL=2*N 

ISTART=JCURVE(NTSPRN-1} 

NP=NPPC(NTSPRN-1} 

CALL  INT1(-.001,MP,X(I3TART},FOFX(ISTART},F1} 

CALL  INTI ( 0. 0, N F, X ( ISTART } ,FOFX( 1ST ART) ,F2} 

TS=1000. 0* (F2-F1}*T0TAL 
GEND:IS(3}  =WEIGHT/TS 

NPR  0 

IF  (.» DEBUG.E(3.2}  NPR  = 1 

NCOUI«T=0 

NTRY:=  0 

N0K=l} 

ROLL  = GSd} 

IF  (IJL0PE.lt.  0.0}  RaL  = GS(2} 

GENDIS(l}=ROLL 
GENDI  S(2}=TLYd}*ROLL 
PITCH=0.0 
YAH=iJ  .0 

20  CALL  BETAIJ 

XOBA2=0.5*(d.0*BETA(!l.l}  }»5ENOIS<2)*BETA(l,2  }*GENOIS(3} 

I ♦BETA <1,3}*SEN0I>(6}} 

YOB AR =0.5 ♦(BETA (2, 1 }*GENDIS (2} ♦( 1.0+BET A<2, 2) } ♦ GE NDIS (3 } 

1 ♦BETA  (2,3  }*‘GENDIS(6}} 

2OBAR=0.5*(BETA(3,l}*6ENOIS(2}^BETA(3,2}*GEH)I3  (3)^(1.0+BETA(3,3}} 
I •GEN0IS(6)} 

COMPOTE  FORCES. 

CALL  EXTRNL 

IF  (ITRIM.EQ. 1}  CD  TO  25 
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TRIM 


ooo  o ooo  oooooo  oon 


IF  (JOEBUG.EQ.g)  WRITE  <6»9000)  ( F0RCE<  I0>  » IO=t . WDOFl 
Z5  NPR,  NSOJNT) 

PITCM=GEN0IS<4I 

YAW=SEM0IS<5> 

HAVE  WE  TRIMMED  THE  VEHICLE  ? 

IF  CNCOUNT. EQ.l)  HTRY=HTRY*1 
IF  (MTRY.GT,20)  GO  TO  1000 
IF  (WOK.EQ.O)  GO  TO  20 
IF  (MO<,EQ.  21  GO  TO  I’OOO 

VEHIDLE  IS  TRIMMED. 

OUTPJT  TRIM  CONDITIONS. 

JTRIM=:JTRIMfrl 
SLi;!^?J”-'-T.2l  S3  TO  20 
WRITE  16, 4» 

IFIJ0E3UG.GT.0)  WRITE  (6,3>  IGENOIS  II  01 , 10=1,  M30  F » 

SET  JP  FOR  INTEGRATION. 

XSAVE=K08AR 

YSAVE=YOBAR 

ZSAVE=Z0BAR 

RETURN 

CAN'T  FIND  A SOLUTION. 

1000  WRITE  16,11 
KERR  = 2 
RETURN 

i vehicle  TRIM  ABORTED  ITRIMll 

3 FORMAT  <31H0GENKAL  IZED  TRIM  COORDINATES  =, 

^ /f^lXfXOclo#  91  I 

format  <21H  vehicle  HAS  TRIMMEO.l 
90  00  FORMAT  (lAH  TRIM  FORCES  =,/ , I IX, 10E12 .4 ) I 

END 


trim 
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ATTN:  Technical  Library 
P..  0.  Box  504 
Sunnyvale,  CA  94088 

Martin  Marietta  Aerospace 
Orlando  Division 
ATTN:  G.  Fotieo 

Mail  Point  505, 

Craig  Luongo 
P.  0.  Box  5837 
Orlando,  FL  32805 

McDonnell  Douglas  Astronautics 
Corporation 

ATTN:  Robert  W.  Halprin 
Mr.  C.  Gardiner 
Dr.  P.  Lewis 
5301  Balsa  Avenue 
Huntington  Beach,  CA  92647 

Merritt  Cases,  Inc. 

ATTN:  J.  L.  Merritt 

Technical  Library 
P.  0.  Box  1206 
Redlands,  CA  92373 

Meteorology  Research,  Inc, 
ATTN:  W.  D.  Green 
464  West  Woodbury  Road 
Altadena,  CA  9I00I 

The  Mitre  Corporation 
ATTN:  Library 

P.  0.  Box  208 
Bedford,  MA  01730 


4 Physics  International  Corp. 
ATTN:  E.  T,  Moore 

Dennis  Orphal 
Coye  Vincent 
F.  M.  Sauer 
2700  Merced  Street 
San  Leandro,  CA  94577 

4 Physics  International  Corp 
ATTN:  Robert  Swift 

Charles  Godfrey 
Larry  A.  Behrmann’ 
Technical  Library 
2700  Merced  Street 
San  Leandro,  CA  94577 

5 R^D  Associates 

ATTN:  Dr.  H.  L.  Brode 

Dr.  Albert  L.  Latter 
C.  P.  Knowles 
William  B.  Wright 
Henry  Cooper 
P.  0.  Box  9695 
Marina  del  Rey,  CA  90291 

4 R§D  Associates 

ATTN:  Jerry  Carpenter 
Sheldon  Schuster 
J.  G.  Lewis 
Technical  Library 
P.  0.  Box  9695 
Marina  del  Rey,  CA  90291 

1 The  Rand  Corporation 
ATTN:  C.  C.  Mow 
1700  Main  Street 
Santa  Monica,  CA  90406 


Pacifica  Technology 
ATTN : G . Kent 
R.  Bjork 
P.  0.  Box  148 
Del  Mar,  CA  92014 
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6 Sandia  Laboratories 

ATTN:  Doc  Control  for  3141 

Sandia  Rpt  Collection 
A.  J.  Chaban 
M.  L.  Merritt 
L.  J.  Vortman 
W.  Robert/ 

L.  Hill 

Albuquerque,  NM  87115 

1  Sandia  Laboratories 
Livermore  Laboratory 
ATTN:  Doc  Control  for  Tech  Lib 
P.  0.  Box  969 
Livermore,  CA  94550 

1 Science  Applications , Inc. 

ATTN:  Technical  Library 
P.  0.  Box  3507 
Albuquerque,  NM  87110 

2 Science  Applications,  Inc. 

ATTN:  R.  Seebaugh 

John  Mansfield 
1651  Old  Meadow  Road 
McLean,  VA  22101 

1 Science  Applications,  Inc. 

8201  Capwell  Drive 
Oakland,  CA  94621 

2 Science  Applications,  Inc. 

ATTN:  Technical  Library 

Michael  McKay 
P.  0.  Box  2351 
La  Jolla,  CA  92038 

4 Systems,  Science  § Software 
ATTN:  Donald  R.  Grine 
Ted  Cherry 
Thomas  D.  Riney 
Technical  Library 
P.  0.  Box  1620 
La  Jolla,  CA  92037 


3  Terra  Tek,  Inc. 

ATTN:  Sidney  Green 

Technical  Library 
A.  H.  Jones 
420  Wakara  Way 
Salt  Lake  City,  UT  84108 

2 Tetra  Tech,  Inc. 

ATTN:  Li -San  Hwang 

Technical  Library 
630  North  Rosemead  Blvd. 
Pasadena,  CA  91107 

7 TRW  Systems  Group 

ATTN:  Paul  Lieberman 

Benjamin  Sussholtz 
Norm  Lipner 
William  Rowan 
Jack  Farrell 
Pravin  Bhutta 
Tech  Info  Ctr/S-1930 
One  Space  Park 
Redondo  Beach,  CA  90278 

1 TRW  Systems  Group 
ATTN:  Greg  Hulcher 

San  Bernardino  Operations 

P.  0.  Box  1310 

San  Bernardino,  CA  92402 

2 Union  Carbide  Corporation 
Holifield  National  Laboratory 
ATTN:  Doc  Control  for 

Tech  Lib 

Civil  Defense  Research 
Proj 

P.  0.  Box  X 

Oak  Ridge,  TN  37830 

1 Universal  Analytics,  Inc. 
ATlN:  E.  I.  Field 
7740  W.  Manchester  Blvd. 

Playa  del  Rey,  CA  90291 
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1  Weidlinger  Assoc.  Consulting 
Engineers 

ATTN:  M.  L.  Baron 
110  East  59th  Street 
New  York,  NY  10022 

1 Westinghouse  Electric  Company 
Marine  Division 

ATTN:  W.  A.  Votz 
Hendy  Avenue 
Sunnyvale,  CA  94008 

2 Battel le  Memorial  Institute 
ATTN;  Technical  Library 

R.  W.  Klingesmith 
505  King  Avenue 
Columbus,  OH  43201 

1 California  Institute  of 

Technology 
ATTN:  T.  J.  Ahrens 
1201  E.  California  Blvd. 
Pasadena,  CA  91109 

2 COSMIC 

ATTN:  L.  C.  Gadol 
112  Barrow  Hall 
University  of  Georgia 
Athens , GA  30602 

2 Denver  Research  Institute 
University  of  Denver 
ATTN:  Mr.  J.  Wisotski 

Technical  Library 
P.  0.  Box  10127 
Denver,  CO  80210 

3 I IT  Research  Institute 
ATTN:  Milton  R.  Johnson 

R.  E.  Welch 
Technical  Library 
10  West  35th  Street 
Chicago,  IL  60616 


2 Lovelace  Foundation  for 
Medical  Education 
ATTN;  Asst.  Dir.  of  Research/ 
Robert  K.  Jones 
Technical  Library 
5200  Gibson  Blvd,  SE 
Albuquerque,  NM  87108 

1 Massachusetts  Institute  of 

Technology 

Aeroelastic  and  Structures 
Research  Laboratory 
ATTN;  Dr.  E.  A.  Witmer 
Cambridge,  MA  02139 

2 Southwest  Research  Institute 
ATTN:  Dr.  W.  E.  Baker 

A.  B.  Wenzel 
8500  Culebra  Road 
San  Antonio,  TX  78206 

2 Stanford  Research  Institute 
ATTN:  Dr.  G.  R.  Abrahams on 
Carl  Peterson 
333  Ravenswood  Avenue 
Menlo  Park,  CA  94025 

1 University  of  Dayton 
Industrial  Security 
Super.  KL-505 
ATTN:  H.  F.  Swift 
300  College  Park  Avenue 
Dayton,  OH  45409 

1 University  of  Illinois 

Consulting  Engineering  Services 
ATTN:  Nathan  M.  Newmark 
1211  Civil  Engineering  Building 
Urbana,  IL  61801 
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2 The  University  of  New  Mexico 
The  Eric  H.  Wang  Civil 

Engineering  Rsch  Facility 
ATTN:  Larry  Bickle 
Neal  Baum 
University  Station 
Box  188 

Albuquerque,  NM  87131 

2 Washington  State  University 
Administration  Office 
ATTN;  Arthur  Miles  Hohorf 
George  Duval 
Pullman,  WA  99163 


Aberdeen  Proving  Ground 


Marine  Corps  Ln  Ofc 
Dir,  USAMSAA 

ATTN:  Dr.  J.  Sperrazza 

Mr.  R.  Norman,  GWD 
B.  E.  Cummings 
M.  Reches 
Cradt,  USAOCSS 

ATTN:  ATSL-CD-CD 

LT  C.  E.  Tate 
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